The HPC as a Front-End 
Processor 



ABSTRACT 

This application note covers the use of the National Semi- 
conductor HPC46083 High-Performance microcontroller as 
a front-end processor to collect and block data from RS-232 
(serial) and Centronics (parallel) ports for a Host CPU (a 
typical application being an intelligent graphics-oriented 
printer). This application note builds on Application Note 
AN-550 (UPI Port); the result being a program that imple- 
ments a versatile front-end processor for a National 
NS32CG16CPU. 

1.0 INTRODUCTION 

In Application Note AN-550, "A Software Driver for the HPC 
Universal Peripheral Interface Port", we saw how a National 
Semiconductor HPC46083 microcontroller can be connect- 
ed and programmed to perform intelligent peripheral func- 
tions for a host CPU; our example being an application con- 
necting an NS32CG16 CPU through the HPC to a typical 
front panel. 

In this application note, we will expand on the hardware and 
the driver software presented there in order to implement a 
very useful function for a high-performance microcontroller; 
that of a front-end processor for data collection. To demon- 
strate a real-world application for this kind of function, we 
implement here an intelligent interface to a Centronics-style 
parallel input port and an RS-232 serial port, typical of a 
graphics-oriented printer. 

2.0 THE FRONT-END PROCESSOR FUNCTION 

As systems start to support higher data rates, one of the 
ever-present challenges is to minimize the interrupt pro- 
cessing load on the CPU, which can become intolerable if 
the CPU must process each character received in a sepa- 
rate interrupt. Since the character transfer task is typically 
so simple (reading a character from an input port and plac- 
ing it into a memory buffer), it is often the case that the 
unavoidable context switch time associated with the inter- 
rupt outweighs the time spent processing the input charac- 
ter. In addition, the communication task may not be the 
CPU's highest priority: for example, in band-style laser print- 
ers the CPU must keep up with the paper movement; it can 
neither rerun an image nor stop the paper. The communica- 
tion rate therefore suffers; even printers running from a Cen- 
tronics-style parallel port are typically unable to accept data 
faster than 4k characters per second. 
The traditional technique for overcoming this obstacle is to 
implement Direct Memory Access (DMA) for the communi- 
cation ports. This is, however, quite a large investment in 
hardware, requiring an external DMA controller chip and 
more sophisticated bus structures to support it. In other 
words, it may be acceptable for a computer system, but it is 
overly expensive for an embedded controller application. 
Also, the response time required of the CPU can still be 
stringent, especially in implementing flow control to pace 
the character rate from the external system presenting the 
data. 

The HPC46083 microcontroller, however, allows a much 
more cost-effective approach to the problem. As a peripher- 
al, it interfaces to the CPU much as any peripheral controller 
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would. In the application documented here, it buffers up to 
128 characters before interrupting the CPU, thus dropping 
the CPU input interrupt processing frequency by over two 
orders of magnitude, while allowing a character input rate of 
over 20 kb/sec. 

2.1 Data Transfer Technique 

The benefit provided by a front-end processor is derived 
from the efficiency it adds to the process of getting data into 
the CPU's data buffer; that is, how much of the CPU's pro- 
cessing time gets dedicated to this task. 
The efficiency is provided by two means: 

1 . Reduction of interrupt overhead. By interrupting the CPU 
only once every 100 characters, the overhead per char- 
acter becomes virtually negligible. 

2. Elimination of error testing overhead. If the CPU were 
communicating with a UART directly, it would have to poll 
for error conditions on each character. In our implementa- 
tion, there are two interrupt vectors for data transfer: one 
for good data (which transfers a block of data), and one 
for bad data (which transfers one character and its error 
flags). The good data interrupt routine, then, which is in- 
voked almost exclusively, contains a very simple inner 
loop. After reading the character count from the HPC, all 
that the CPU needs to do is: 

— Move a character from the HPC's OBUF register to the 
current destination address. No time is wasted polling the 
HPC status; the hardware synchronization technique de- 
scribed in Application Note AN-550 handles this. 

— Increment the destination address. (Checking against 
buffer limits could be done here, but is more efficiently 
handled outside the inner loop). 

— Decrement the character count and test it; loop if non- 
zero. 

The HPC firmware also supports this technique by guar- 
anteeing that the reporting of character errors (and 
BREAK conditions) is synchronized with good data, so 
that the CPU can tell exactly where in the data stream 
the error occurred. 

2.2 Logic Replacement 

Front-end processing tasks by no means use up the HPC's 
capabilities in a system. In our application, the HPC also 
serves as the CPU's only interrupt controller, allowing 
a large number of vectors with no additional hardware. It 
performs additional control tasks such as dynamic RAM re- 
fresh request timing, front panel control and real-time clock 
functions given in Application Note AN-550 with inexpensive 
interfacing. In a single 4 kbyte program developed in our 
group, we were also able to add an interface to an inexpen- 
sive serial EEPROM device (connected directly to the Ml- 
CROWIRE/PLUSTM port of the HPC) and to a laser-printer 
engine for non-imaging control functions, and we also im- 
plemented a higher-resolution event timing feature. (These 
are topics for future application notes, however, and are not 
dealt with here.) 

To summarize, then, the HPC not only can provide front-end 
processing functions, but can pay for itself by replacing oth- 
er logic in the system. 
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3.0 HARDWARE 

The following sections refer to the schematic pages includ- 
ed. We will discuss here only the portions involving the Cen- 
tronics Parallel and RS-232 Serial ports. See Application 
Note AN-550 for details of the other connections shown 
(the UPI port and front-panel functions). 

3.1 The Centronics Parallel Port 

The Centronics port was implemented on the connector 
designated J5. Most of the interface is diagrammed on 
Sheet 4 of the schematic. 

3.1.1 Control Inputs 

Pin 1 of the J5 connector receives the Data Strobe 
(STROBE) input, which signals the presence of valid data 
from the external system. On Sheet 4, in area C5, this signal 
appears from the connector. It is filtered using a Schmitt 
trigger (a spare 1488 RS-232 receiver chip), and is then 
presented to the HPC (Sheet 3) as interrupt signal 14. 



Pin 31 is the Input Prime signal (PRIME), which is asserted 
low by the external system in order to reset the interface. It 
appears on Sheet 4 in area D5, and is filtered in a similar 
manner. It is then gated with the signal ENPRIME from the 
Centronics Control Latch, and the resulting signal is pre- 
sented to the HPC on pin *EXUI, which is the External 
UART Interrupt input. The gating is used to prevent confu- 
sion between UART and PRIME interrupts: while the Cen- 
tronics port is selected, only PRIME causes interrupts, and 
while the RS-232 port is selected, this gating keeps PRIME 
interrupts from being asserted. 

3.1.2 Data Inputs 

Eight data bits, from J5 pins 2 through 9, appear in areas B8 
and C8 of Sheet 4. They are latched into a 74LS374 latch 
on the leading edge of the STROBE signal (note the inver- 
sion through the Schmitt receiver on STROBE). The latch is 
enabled to present data to the HPC's Port D pins by the 
signal ENCDATA, which comes from HPC pin B12. Note 
that Port D is also used for inputting pushbutton switch data 
from a front panel. 

3.1.3 Control Outputs 

The Centronics control and handshake signals are present- 
ed by loading the Centronics Control Latch (Sheet 4, area 
B4) from the HPC's pins A8 through A15 (Port A Upper) 
using as a strobe the signal CCTLCLK from HPC pin P2. 
Pin 10 of connector J5 is the Centronics Acknowledge 
(CACK) pulse, which is used to signal the external system 
that the HPC is ready for the next byte of data. This is one of 
the two handshake signals used to pace data flow. It is ini- 
tialized high by the HPC, and is pulsed low when required. 
Pin 1 1 is the Centronics Busy (CBUSY) signal, which is gen- 
erated by the flip-flop on Sheet 4, area C3. It is set directly 
by a STROBE pulse, and is also loaded from the Centronics 
Control Latch whenever the HPC finishes reading a byte of 
data (rising edge of ENCDATA). This will clear CBUSY un- 
der normal conditions, allowing the external system to send 
another byte of data. 



Five additional signals, whose functions vary significantly 
from printer to printer, are presented on connector J5 from 
the Centronics Control Latch. These are: 

Pin 13, which generally indicates that the printer is select- 
ed. 

Pin 12, which indicates that the printer needs attention 

(for example, that it is out of paper). 

Pin 32, which indicates a more permanent or unusual 

problem (lamp check or paper jam). 

Pins 33 and 35, which vary more widely in use. 
These five pins are manipulated by commands from the 
CPU; the HPC simply presents them as commanded. 

3.1.4 Other Signals 

Pin 18 of the Centronics port connector receives a perma- 
nent -I-5V signal (area B2 of Sheet 4), and a set of other 
pins (middle of Sheet 2) are connected permanently to 
ground. 

3.2 The RS-232 Serial Port 

The serial port (on connector J6) makes use of the HPC's 
on-chip UART and baud rate generator; very little off-chip 
hardware is required. The entire RS-232 circuit appears on 
Sheet 3 of the schematic. 

This port is implemented in a way typical of printers, and so 
there are no sophisticated handshaking connections. The 
interface looks like an RS-232 DTE device: Connector J6 
pin 2 is transmitted data (out) and pin 3 is received data (in). 
The RS-232 data input appears in area B8 of Sheet 3, as 
signal RXD. After the RS-232 receiver, it is presented on the 
HPC's UART input pin (16). Note that this pin can be moni- 
tored directly as a port bit; this enables the HPC to check 
periodically for the end of a BREAK condition without being 
subjected to a constant stream of interrupts for null charac- 
ters. 

The Data Set Ready signal (DSR) is received from pin 6 of 
J6, and presented on HPC pin 17, where it can be monitored 
by the HPC firmware. 

The Request to Send signal (RTS) is a constant high level 
placed on J6 pin 4. 

Transmitted data (TXD) is presented from the HPC's UART 
output pin (BO), through a buffering gate, to an RS-232 driv- 
er, and then out on J6 pin 3. The buffering gate would be 
unnecessary if the CMOS 14C88 driver were being used, 
but the gate was a spare and allowed cost savings using the 
less expensive TTL 1488 chip. 

Data Terminal Ready (DTR) is simply presented from a pro- 
grammable port pin of the HPC (pin B1). It is buffered 
through a spare inverter, and then presented to RS-232 
connector J6 pin 20 through an RS-232 driver. As with the 
UART output, the buffering would be unnecessary with the 
14C88 type of RS-232 driver; however, note that the HPC 
firmware would have to be modified slightly due to the re- 
sulting polarity difference on the pin. 
J6 pins 1 (Frame Ground) and 7 (Signal Ground) are, of 
course, grounded, as shown in this sheet also. 



3.3 Schematic Sheets 
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4.0 PROTOCOL 

The command and interrupt protocol is a superset of that 
implemented for Application Note AN-550. The two com- 
mands SELECT-CENT and SELECT-UART are added to 
select and initialize each of the communication ports (Cen- 
tronics or RS-232). The CPU can exercise control over data 
buffering by the commands FLUSH-BUF, CPU-BUSY, CPU- 
NOT-BUSY and SET-IFC-BUSY. It can set Centronics port 
error flags and status using SET-CENT-STS, and it can test 
for RS-232 status using the TEST-UART command. The 
HPC also allows the CPU to send characters out on the RS- 
232 port using the SEND-UART command. 
New interrupts presented by the HPC are IDATA, which 
transfers up to 128 bytes of buffered data to the CPU, 
IPRIME and lUART-STATUS, which inform the CPU of port 
status changes, and IDATA-ERR, which reports in detail any 
error ocurring in characters received. The interrupt lACK- 
UART is presented to the CPU to acknowledge that the 
SEND-UART command has been completed. 
Note that the command codes for the front panel functions 
have been changed. Their formats, however, have not 
changed, nor have their functions, except that the INITIAL- 
IZE command now performs a disconnection function on 
the RS-232 and Centronics ports. 

4.1 Commands 

The first byte (command code) is sent to address FFFCOO, 
and any argument bytes are then written to address 
FFFEOO. The CPU may poll the UPIC register at address 
FDOOOO to determine when the HPC can receive the next 
byte, or it can simply attempt to write, in which case it will be 
held in Wait states until the HPC can receive it. Except 
where noted, the CPU may send commands continuously 
without waiting for acknowledgement interrupts from previ- 
ous commands. 

00 INITIALIZE This command has two functions. 

The first INITIALIZE command after 
a hardware reset (or RESET-HPC 
command) enables the IRTC and 
IBUTTON-DATA interrupts. Both 
data communcation ports are set to 
their "Busy" states until a "SELECT" 
command is sent. The INITIALIZE 
command may be re-issued by the 
CPU to de-select both communica- 
tion ports, and to either start or stop 
the IRTC interrupts. There is one ar- 
gument: 

RTC-lnterval: One-byte value. If 
zero, IRTC interrupts are disabled. 
Otherwise, the IRTC interrupts occur 
at the interval specified (in units of 
10 ms per count). 

01 SELECT-CENT Select the Centronics port and set it 

ready, using the timing sequence 
specified by the supplied ACK-Mode 
argument. Data from the port is en- 
abled, and the IPRIME interrupt is 
also enabled. Arguments: 



ACK-Mode: one byte in the format: 



X 


X 


X 


X 


X 


L 


Timing 



02 SELECT-UART 



where the Timing field is encoded as: 

00 = BUSY falling edge occurs after 

ACK pulse. 

01 = BUSY falling edge occurs dur- 

ing ACK pulse. 
10 = BUSY falling edge occurs be- 
fore ACK pulse, 
and the L bit, when set, requests 
Line Mode. It suppresses the remov- 
al of BUSY and the occurrence of 
the ACK pulse when the buffer is 
passed to the CPU. To fully imple- 
ment Line Mode, this mode should 
be used with Pass-Count = 1 and 
Stop-Count = 1, and the CPU must 
use the SET-CENT-STS command to 
acknowledge each character itself. 
Pass-Count: Number of characters 
in buffer before the HPC passes 
them automatically to CPU. One 
byte. 

Stop-Count: Number of characters 
in buffer before HPC tells the exter- 
nal system to stop. One byte. 
Note that the buffer is a maximum of 
128 bytes in length, in this implemen- 
tation. 

Requires INITIALIZE command first. 
Select Serial port and set it ready, 
according to supplied arguments. 
Requires INITIALIZE command first. 
Arguments are: 

Baud: Baud rate selection. One Byte 
containing. 

= 300 baud 

1 = 600 baud 

2 = 1200 baud 

3 = 2400 baud 

4 = 4800 baud 

5 = 9600 baud 

6 = 19200 baud 

7 = 38400 baud 

8 = 76800 baud 

Frame: One byte, selecting charac- 
ter length, parity and number of stop 
bits. 



Value 


Data Bits 


Parity 


Stop Bits 





8 


Odd 


1 


1 


8 


Even 


1 


2 


8 


None 


1 


3 


8 


None 


2 


4 


7 


Odd 


1 


5 


7 


Even 


1 


6 


7 


Odd 


2 


7 


7 


Even 


2 



Flow: One byte, bit-encoded for 
handshaking and flow control 
modes: 






XON 


DTR 


DSR 



4 



1 



03 (reserved) 

04 FLUSH-BUF 



DSR: 1 = the HPC disables the 

UART receiver while the DSR input is 

inactive. 

DTR: Polarity of DTR output, and 

whether it is used as a flow-control 

handshake. 

00 = Permanently low (negative 

voltage). 

01 = Permanently high (positive 

voltage). 

10 = Handshaking: low means 

ready. 

11 = Handshaking: high means 

ready. 
XON: 1 = the HPC performs 
XON/XOFF flow control. 
Pass-Count: Number of characters 
in buffer before the HPC passes 
them automatically to CPU. One 
byte. 

Stop-Count: Number of characters 
in buffer before HPC tells the exter- 
nal system to stop. One byte. 
Note that the buffer is a maximum of 
128 bytes in length, in this implemen- 
tation. 
Requires INITIALIZE command first. 



No arguments. Flush HPC data com- 
munication buffer to CPU. Any data 
in the buffer is immediately sent to 
the CPU (using the IDATA interrupt). 
This command triggers the IDATA in- 
terrupt only if the buffer contains at 
least one byte. Requires INITIALIZE 
command and SELECT command 
first. 

05 CPU-BUSY No arguments. Indicates that the 

CPU cannot accept any more data 
(the CPU's data buffer is full). This 
suppresses the IDATA and IDATA- 
ERR interrupts. Requires INITIALIZE 
command and SELECT command 
first. 

06 CPU-NOT-BUSY No arguments. This undoes a previ- 

ous CPU-BUSY command, and indi- 
cates that the CPU can now accept 
more data from the HPC. Requires 
INITIALIZE command and SELECT 
command first. 

07 SET-IFC-BUSY "Set Interface Busy". No arguments. 

Commands the HPC to immediately 
signal the external system to stop 



08 SET-CENT-STS 



sending characters. This status is re- 
moved only by performing a SELECT 
command. Requires INITIALIZE 
command and SELECT command 
first. 

"Set Centronics Port Status". Loads 
Centronics latch from the supplied 
argument byte. Argument is eight 
bits, which must be encoded as fol- 
lows: 



ENPRIME 


CX2 




CALL 


SELECT 


BUSY 


CXI 


ACK 


FAULT 



The ACK bit should always be a "1 ". 
The CPU m ust us e the BUSY bit to 
generate an ACK pulse: if the BUSY 
bit is zero, the ACK signal will be au- 
tomatically pulsed low, then high, (re- 
gardless of the previous states of 
BUSY and ACK). 

Requires INITIALIZE command and 
SELECT-CENT command first 

09 SET-CONTRAST The single argument is a 3-bit num- 
ber specifying a contrast level for the 
LCD panel (0 is least contrast, 7 is 
highest contrast). There is no re- 
sponse interrupt. Does not require 
INITIALIZE command first. 

OA SEND-LCD This writes a string of up to 8 bytes to 

the LCD panel. Arguments are: 
flags: A single byte, containing the 
RS bit associated with each byte of 
data. The first byte's RS value is in 
the least-significant bit of the FLAGS 
byte. 

# bytes: The number of bytes to be 
written to the LCD display. 

byte [1] -byte [# bytes]: The data 
bytes themselves. 

The HPC determines the proper de- 
lay timing required for command 
bytes (RS = 0) from their encodings. 
This is either 4.9 ms or 120 (j,s. 
The response from the HPC is the 
lACK-SEND-LCD interrupt, and this 
command must not be repeated until 
the interrupt is received. This com- 
mand does not require an INITIAL- 
IZE command firsL 
OB SEND-LED The singe argument is a byte con- 

taining a "1" in each position for 
which an LED should be lit. 
There is no response interrupt, and 
this command does not require the 
INITIALIZE command first. 

OC BEEP No arguments. This beeps the panel 

for approximately one second. No re- 
sponse interrupt. If a new BEEP 
command is issued during the beep, 
no error occurs (the buzzer tone is 
extended to one second beyond the 
most recent command). Does not re- 
quire INITIALIZE command first. 



OD SEND-UART 


The single one-byte argument is sent 


Vector 






on the UART port. An acknowledge- 


00- 


-OF (none) 


(Reserved for CPU internal traps 




ment interrupt lACK-UART occurs on 






and the NMI interrupt.) 




completion. This command must not 


10 


IDATA 


Buffer data is being transferred to 




be repeated until the interrupt Is 






CPU. This will happen either auto- 




received. Requires INITIALIZE and 
SFI FCT-UART commands first. 






matically, at a point defined by the 
most recent SELECT command. 


OE TEST-UART 


Triggers a lUART-STATUS Interrupt. 
This command must not be repeated 
until the Interrupt Is received. No ar- 
guments. Requires INITIALIZE and 
SELECT-UART commands first. 






or as the result of a 
FLUSH-BUF command. It is fol- 
lowed by a one-byte Length (num- 
ber of characters: current HPC 
firmware has a range of 1-128), 


A5 RESET-HPC 


Resets the HPC if it is written to ad- 
dress FFFCOO. It may be written at 
any time that the UPI port Is ready for 
input; it will automatically cancel any 






then that number of characters. 
Enabled by SELECT command af- 
ter at least one INITIALIZE com- 
mand. 




partially-entered command. The 


11 


!RTC 


Real-Time Clock Interrupt No 




CPU's Maskable Interrupt must be 






data returned. Enabled by INI- 




disabled before issuing this com- 






TIALIZE command If Interval value 




mand. 






supplied is non-zero. 




After Issuing this command, the CPU 






Note: This version of HPC firmware issues 




should first poll the UPIC register at 






a non-fatal IDIAG interrupt if the 




address FDOOOO to see that the HPC 






CPU fails to service each IRTC inter- 




has input the command (the least- 






rupt before the next one becomes 
pending. 




significant bit [Write Ready] Is zero). 


12 


(reserved) 




It must then wait for at least 25 ^is. 






then read a byte from address 


13 


IPRIME 


Centronics INPUT PRIME signal 




FFFEOO. The HPC now begins its In- 






has become active. No data re- 




ternal re-lnitiallzation. The CPU must 






turned. Enabled by SELECT- 




wait for at least 80 p.s to allow the 






CENT command after at least one 




HPC to re-lnitlalize the UPI porL 






INITIALIZE command. 




Since part of the RESET procedure 
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(reserved) 






causes Ports A and B to float briefly 
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(reserved) 






(this includes the CPU's Maskable 
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(reserved) 






Interrupt input pin), the CPU should 






keep its maskable Interrupt disabled 


17 


lACK-SEND-LCD 


This is the response to the SEND- 




during this time. It also must not en- 






LCD command, to acknowledge 




ter a command byte during this time 






that data has all been written to 




because the byte may be lost. 






Panel LCD display. No other data 
is provided with this Interrupt Al- 


4.2 Interrupts 








ways enabled, but occurs only in 


The HPC interrupts 


the CPU, and provides the following val- 






response to a SEND-LCD com- 


ues as the interrupt vectors for the CPU hardware. The CPU 






mand. 


then reads data from the HPC at address FFFEOO. All data 
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IBUTTON-DATA 


Pushbutton status has changed: 


provided by the HPC must be read by the CPU before re- 






one or more buttons have been ei- 


turning from the interrupt service routine, otherwise the HPC 






ther pressed or released. The new 


would either hang 


or generate a false interrupt. The CPU 






status of the switches is reported 


may poll the UPIC register at address FDOOOO to determine 






in a data byte, encoded as fol- 


when each data byte is ready, or it may simply attempt to 






lows: 


read from address FFFEOO, and it will be held in Wait states 
until the data is provided by the HPC. 






Any pushbutton that is depressed 
is presented as a "1 ". All other bit 


Note: All CPU interrupt service routines, including the NMI interrupt rou- 
tines, must return usina the "RETT 0" instruction. Do NOT use 






positions, including unused posi- 


■■RETI". 








tions, are zeroes. The pushbut- 
tons are debounced before being 
reported to the CPU. This interrupt 
is enabled by the first INITIALIZE 
command after a reset. 



19 lUART-STATUS 



1A IDATA-ERR 



2-7 
Note 1 



UART status has changed. This 
interrupt occurs only while the 
UART is selected. A data byte 
shows the UART's new state: 
Bit Condition 

(LSB) New state of DSR sig- 

nal. This causes an in- 
terrupt only if DSR moni- 
toring was requested in 
the last SELECT-UART 
command. The UART 
receiver is automatically 
enabled and disabled by 
the HPC, so no CPU ac- 
tion is required on re- 
ceiving this interrupt. If a 
SELECT-UART com- 
mand is entered, re- 
questing DSR monitor- 
ing, and DSR is inactive, 
a lUART-STATUS inter- 
rupt occurs immediately. 

1 This bit is set if a UART 
BREAK has just ended, 
(unused) 

If the CPU has issued a CPU-NOT- 
READY command, this BREAK in- 
terrupt may be seen before the 
IDATA-ERR interrupt that an- 
nounces the start of the BREAK 
(and its position in the data 
stream). 
Note 2: The DSR and UART input (BREAK) 
signals are sampled every 1 ms. 

An error has been encountered in 
data coming from the currently-se- 
lected communication port. It is 
enabled by the first SELECT com- 
mand after the first INITIALIZE 
command. Two data bytes are re- 
turned: 

errclir: One byte containing the 
character on which the error was 
seen (this character is NOT 
placed in the data buffer). 
errfgs: Error flags, detailing the 
error seen: 
Bit Error Seen 

(LSB) (unassigned) 

1 (unassigned) 

2 UART BREAK condition 
detected. This may be 
preceded by one or two 
framing errors. 

3 Error Overflow: More 
errors occurred than 
HPC could report (the 
HPC has no FIFO for er- 
ror reporting). 

4 Buffer Overflow: Flow 
control failed to stop the 
external system, and the 
buffer overflowed. 



1B lACK-UART 



1C (reserved) 
1D IDIAG 



5 Parity Error: Serial Port 
only. 

6 Framing Error: Serial 
Port only. 

7 (MSB) Data Overrun: Serial 

Port only. 
If bit 2, 3 or 4 is set, the communi- 
cation port has been automatically 
shut down by the HPC. The CPU 
must issue a new SELECT com- 
mand to re-enable the port. 
When a character is received with 
an error, all characters appearing 
before it in the buffer are automat- 
ically flushed before this interrupt 
occurs. This is done to preserve 
the error character's position in 
the data stream. If the CPU de- 
cides to ignore the presence of an 
error, the character may be simply 
appended by the CPU to the data 
already in its data buffer. Please 
note: If the CPU has issued a 
CPU-NOT-READY command, the 
flush cannot occur, and this inter- 
rupt will not be issued until the 
flush has occurred. 
A CPU character has been sent 
on the UART, and the UART is 
ready for another. No data is re- 
turned with this interrupt. It is al- 
ways enabled, but occurs only in 
response to the SEND-UART 
command. 

Diagnostic Interrupt. This inter- 
rupt is used to report failure condi- 
tions and CPU command errors. 
There are five data bytes passed 
by this interrupt: 
Severity 
Error Code 

Data in Error (passed, but con- 
tents not defined) 
Current Command (passed, but 
contents not defined) 
Command Status (passed, but 
contents not defined) 
The Severity byte contains one bit 
for each severity level, as follows: 



X 


X 


X 


F 


X 


X 


c 


N 



N (Note): least severe. The CPU 
missed an event; currently only 
the IRTC interrupt will cause this. 
C (Command): medium severity. 
Not currently implemented. Any 
command error is now treated as 
a FATAL error (below). 
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F (Fatal): highest severity. The 
HPC has recognized a non-recov- 
erable error. It must be reset be- 
fore the CPU may re-enable its 
Maskable Interrupt. In this case, 
the remaining data bytes may be 
read by the CPU, but they will all 
contain the value 1D (hexadeci- 
mal). The GPU must issue a RE- 
SET command, or wait for a hard- 
ware reset. See below for the pro- 
cedure for FATAL error recovery. 
The Error Code byte contains, for 
non-FATAL errors, a more specif- 
ic indication of the error condition: 



RTC 



(Reserved for COMMAND) 

J \ \ \ \ L 



RTC = Real-Time Clock overrun: 
CPU did not acknowledge 
the RTC interrupt before 
two had occurred. 
The other bits are reserved for de- 
tails of Command errors, and are 
not implemented at this time. 
The remaining 3 bytes are not yet 
defined, but are intended to pro- 
vide details of the HPC's status 
when an illegal command is re- 
ceived. 

Note: Except in ttie FATAL case, all 5 
bytes provided by the HPC must be 
read by the CPU, regardless of the 
specific cause of the error. 

Fatal Error Recovery: 
When the HPC signals a IDIAG er- 
ror with FATAL severity, the CPU 
may use the following procedure 
to recover: 

1. Write the RESET command (A5 
hex) to the HPC at address 
FFFCOO. 

2. By inspecting the UPIC register 
at address FDOOOO, wait for the 
HPC to read the command (the 
WRRDY bit will go low). 

3. Wait an additional 25 |as. 



4. Read from address FFFEOO. 
This will clear the OBUF regis- 
ter and reset the Read Ready 
status of the UPI port. The HPC 
will guarantee that a byte of 
data is present; it is not neces- 
sary to poll the UPIC register. 
This step is necessary because 
only a hardware reset will clear 
the Read Ready indication oth- 
erwise (HPC firmware cannot 
clear it). 

5. Wait at least 80 (j,s. This gives 
the HPC enough time to re-ini- 
tialize the UPI port. 

6. After Step 5 has been complet- 
ed, the CPU may re-enable the 
Maskable Interrupt and start is- 
suing commands. Since the 
HPC is still performing initializa- 
tion, however, the first com- 
mand may sit in the UPI IBUF 
register or a few milliseconds 
before the HPC starts to pro- 
cess it. 

5.0 SOURCE LISTINGS AND COMMENTARY 

5.1 HPC Firmware Guide 

This section is intended to provide help in following the flow 
of the HPC firmware. Discussion of features already docu- 
mented in Application Note AN-550 are abbreviated here; 
see that application note for details. 

The firmware for the HPC is almost completely interrupt- 
driven. The main program's role is to poll mailboxes that are 
maintained by the interrupt service routines, and to send an 
interrupt to the CPU whenever a HPC interrupt routine re- 
quests one in its mailbox. 

On reset, the HPC firmware begins at the label "start". 
However, the first routine appearing in ROM is the Fatal 
Error routine. This is done for ease of breakpointing, to keep 
this routine at a constant address as changes are made 
elsewhere in the firmware. 

5.1.1 Fatal Error Routine 

At the beginning of the ROM is a routine (label "hangup") 
that is called when a fatal error is detected by the HPC. This 
routine is identical to that documented in Application Note 
AN-550. 

5.1.2 Initialization 

At label "start", entered on a Reset signal or by the RESET- 
HPC command from the CPU, the HPC begins its internal 
initialization. It loads the PSW register (to select 1 Wait 
state), and then (at label "srfsh"), it starts the Refresh clock 
pulses running for the dynamic RAM by initializing Timer T4 
and starting it. 

At "supi", the UPI port is initialized for transfers between the 
HPC and the CPU. 
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At label "sram", all RAM within the HPC is initialized to zero. 
At "sskint", the stack pointer is initialized to point to the 
upper bank of on-chip RAM (at address 01 CO). The address 
of the fatal error routine "hangup" is then pushed, so that it 
will be called if the stack underflows. 
At "tminit", the timers T1 -T3 are stopped and any inter- 
rupts pending from timers T0-T3 are cleared. This step ar- 
bitrarily initializes the UART baud rate to 9600, but this se- 
lection has no effect. 

At "scent", the Centronics port is initialized and set up to 
appear busy to the external system. 

At "suart", the HPC UART is initialized for serial data from 
the external system. The RS-232 DTR signal is arbitrarily set 
low, which generally means that the printer is not ready. The 
state of DTR is not actually valid until the first SELECT- 
UART command is received, which selects the handshaking 
mode. 

At "sled", the LED control signals are initialized, and all LED 
indicators are turned off. 

At "stmrs", all timers are loaded with their initial values, and 
timers T5-T7 are stopped and any interrupts pending from 
them are cleared. 

At "sled", the LCD display is initialized to a default contrast 
level of 5, then commands are sent to initialize it to 8-bit, 2- 
line mode, with the cursor visible and moving to the right by 
default. This section calls a subroutine "wrpnl" for each 
character; the subroutine simply writes the character in the 
accumulator out to the LCD display and waits for approxi- 
mately 10 ms. 

The program then continues to label "minit", which initializ- 
es the variables in the HFC's on-chip RAM to their proper 
contents. 

At label "runsys", the necessary interrupts are enabled 
(from the timers, and from pin 13, which is the UPI port inter- 
rupt from the CPU), and the program exits to the Main Pro- 
gram at label "mainip". Interrupts from the Centronics and 
UART ports are not enabled until the appropriate SELECT 
command is received. 

5.1.3 Main Program (UPI Port Output to CPU) 

The Main Program is the portion of the HPC firmware that 
runs with interrupts enabled. It consists of a scanning loop 
at label "mainip" and a set of subroutines (explained be- 
low). It is responsible for interrupting the CPU and passing 
data to it; the HPC is allowed to write data to the CPU only 
after interrupting it. Unlike the simpler UPl/Front Panel inter- 
face described in Application Note AN-550, this main loop 
scans two separate variables in on-chip RAM that are set up 
by interrupt service routines: a word called "alert", and a 
byte called "bstat" (for "Buffer Status"). Both variables are 
used to determine whether any conditions exist that should 
cause an interrupt to the CPU. 

The "alert" word contains one bit for each interrupt that the 
HPC can generate. If a bit is set (by an interrupt service 
routine), the Main Program jumps to an appropriate subrou- 
tine to notify the CPU. The subroutine checks whether the 
UPI interface's OBUF register is empty, and if not, it waits 
(by calling the subroutine "rdwait"). It then writes the vector 
number to the OBUF register. This has the effect of inter- 
rupting the CPU (because the pin URDRDY goes low), and 
the CPU hardware reads the vector from the OBUF register. 



If there is more information to give to the CPU, the HPC 
places it, one byte at a time, into the OBUF register, waiting 
each time for OBUF to be emptied by the CPU. This tech- 
nique assumes that the CPU remains in the interrupt service 
routine until all data has been transferred: if the CPU were 
to return from interrupt service too early, the next byte of 
data given to it would cause another interrupt, with an incor- 
rect vector. 

(Note, however, that the CPU may be interrupted with a 
Non-Maskable interrupt from a separate source. This simply 
inserts a pause into the process of reading data from the 
HPC. Since the HPC is running its main program at this 
point, with interrupts still enabled, it will not lose data from 
its communication port under these circumstances.) 

The "bstat" byte represents a special case involving the 
interrupt IDATA to the CPU. This byte shows the main pro- 
gram whether the data communication buffer (which holds 
data from the external system) is full enough to send its 
contents to the CPU. If so, the main program calls the sub- 
routine "snddta", which interrupts the CPU, then sends one 
data byte containing the number of characters to be trans- 
ferred (currently as many as 128 are possible), and then the 
characters themselves. 

The CPU may, at any time, demand that the HPC transfer all 
characters that are within its communication buffer. (This is 
called a "flush" command, which sets one of the bits of the 
"alert" word, described above.) The HPC, in response, will 
empty the buffer to the CPU with a IDATA interrupt, even if 
only one character is left. If the buffer is completely empty, 
however, the flush command is ignored. 
Subroutines called from the Main Program loop are: 
sndrtc: sends a Real-Time Clock interrupt to the CPU. No 

data is transferred; only the interrupt vector, 
sndlak: interrupts the CPU to acknowledge that a string of 
data (from a SEND-LCD command) has been writ- 
ten to the LCD display. No data is transferred for 
this interrupt, 
sndbtn: interrupts the CPU to inform it that a pushbutton 
has been pressed or released. A data byte is 
transferred from variable "swisnt", which shows 
the new states of all the pushbuttons, 
sndfsh: performs a Flush operation. If there is data, it 
jumps to the "snddta" routine to send the con- 
tents of the buffer to the CPU. If there is no data, 
however, this subroutine simply returns without 
generating an interrupt, 
snddta: sends data from the communication buffer to the 
CPU. It may be entered for one of three reasons: 

1 . the communication buffer is full enough that it 
must be sent automatically to the CPU. 

2. a Flush command has been received from the 
CPU. (The bit "aflush" in the ALERT word is 
set.) 

3. an error has been detected on a character re- 
ceived from the external system. This causes 
an internal Flush request, so that all good char- 
acters are sent to the CPU before the bad char- 
acter is reported. This case is also different be- 
cause it does not flush the entire buffer, but only 
up to the point of the error. The limit is held in 
the variable "fshlim". 
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The subroutine sends a "length" byte (from vari- 
able "numout", sampled from "numchr", which is 
maintained by the communication interrupt rou- 
tines). This indicates how many characters will be 
transferred. The subroutine next sends the char- 
acters themselves. It then updates the buffer 
status variables in on-chip RAM, to indicate how 
many characters were removed. 
Depending on other status of the selected com- 
munication port, this subroutine may re-enable 
communication on the port if it was stopped (for 
example, if the buffer was too full to accept more 
data until the "snddta" routine emptied it). This is 
done at label "sdstp". 

sndprm: interrupts the CPU because the INPUT PRIME sig- 
nal on the Centronics parallel port was activated 
by the external system. No data is transferred by 
this interrupt. 

sndust: interrupts the CPU to report a change in UART 
status. This interrupt may also be triggered by the 
CPU using the TEST-UART command. 



snderr: interrupts the CPU to inform it that a character with 
an error was received. The character and a byte 
containing error flags are transferred to the CPU. 

snduak: interrupts the CPU in response to a SEND-UART 
command, to acknowledge that the requested 
character has been sent on the UART transmitter, 
and that it is ready to transmit another character. 

sndiag: interrupts the CPU to inform it of a IDIAG interrupt 
condition, when it is of NOTE severity. (Other 
IDIAG conditions are handled at label "hangup".) 

5.1.4 UPI Port Input from CPU (Interrupt 13) 

This interrupt service routine, at label "upiwr", accepts com- 
mands from the CPU. Apart from the existence of additional 
commands, the structure of this routine is identical to that of 
Application Note AN-550. We document here the labels and 
functions involved in this larger application. 
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INITIALIZE 
SELECT-CENT 
SELECT-UART 
FLUSH-BUF 



13 interrupt labels: 
13 interrupt labels 
13 interrupt labels 
13 interrupt labels; 



Command Processing Routines 

State 1 = fcinit 

State 1 = fcseic 

State 1 = fcselu 

State 1 = fcflsh 



State 3 
State 3 
State 3 
State 3 



^ Icinit 

^ Icseic 

: Icselu 

^ (none) 



At label "fcflsh", the "alert" word bit "aflush" is set, which requests that the main program flush the 
communication buffer. 



CPU-BUSY 13 interrupt labels: State 1 = fccbsy State 3 = (none) 

At label "fccbsy", the buffer status byte "bstat" is set to indicate that the CPU is busy and cannot 
accept more data from the HPC. This disables the IDATA interrupt. 

CPU-NOT-BUSY 13 interrupt labels: State 1 = fccnby State 3 = (none) 

At label "fccnby", the buffer status byte "bstat" is set to indicate that the CPU is ready to accept more 
data from the HPC. The IDATA interrupt is re-enabled. 

SET-IFC-BUSY 13 interrupt labels: State 1 = fcifby State 3 = (none) 

At label "fcifby", the currently selected interface is set busy, in order to present an error indication. 

SET-CENT-STS 13 interrupt labels: State 1 = fcscst State 3 = Icscst 

At label "Icscst", the Centronics Port status byte "cps" is loaded from the value supplied by the CPU, 
and the Centronics port control signals are updated to reflect these new settings. The subroutine 
"setcen" is used to set up the control signals, and it also pulses the Centronics ACK signal if 
appropriate. 

SET-CONTRAST 13 interrupt labels: State 1 = fcslcv State 3 = Icslcv 

At label "Icslcv" (Set LCD Voltage), the LCD Contrast latch is loaded from the value supplied by the 
CPU. 

SEND-LCD 13 interrupt labels: State 1 = fcslcd State 3 = Icslcd 

This command sends a string of up to eight bytes to the LCD display. Application Note AN-550 
describes the implementation of this command in detail. 



SEND-LED 



13 interrupt labels: 



State 1 = fcsled 



State 3 = Icsled 



At label "Icslcd", the byte provided by the CPU is written to the LED latch. 



BEEP 



13 interrupt labels: State 1 = fcbeep 

This command sends a one-second beep tone to a speaker. 



State 3 = (none) 



SEND-UART 13 interrupt labels: State 1 = fcsndu State 3 = Icsndu 

At label "Icsndu", the single argument (the character to be sent) is placed in variable "uschr", and the 
bit "schr" is set in variable "ups" (UART Port Status). By doing this, the character has been queued 
for transmission. The transmission is performed by the subroutine at label "setuar", which is also 
responsible for performing the XON/XOFF flow control protocol. If a character is already being sent 
(the transmitter interrupt is enabled), then this is the only action required, since the transmitter 
interrupt automatically invokes the "setuar" subroutine. However, if the transmitter is idle, this routine 
must itself call "setuar" to transmit the character. 

The subroutine "setuar" itself calls another subroutine at label "uecsnd", which formats the character 
to be transmitted into the frame selected by the current UART framing mode. It then sends the 
character. Note that the UART framing mode applies to output as well as input characters. 

TEST-UART 13 interrupt labels: State 1 = fcusts State 3 = (none) 

At label "fcusts", the HPC sets the "austat" bit of the ALERT word, requesting the Main Program to 
send a lUART-STATUS interrupt to the CPU. 
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5.1.5 Centronics Commmunication 

This task is triggered by each edge of the Centronics port 
STROBE signal. This signal is detected by the HPC on the 
14 interrupt line. On the leading edge of STROBE, the char- 
acter is input to the data communication buffer. This edge 
also sets the BUSY signal, by hardware action. On the trail- 
ing edge, the BUSY flag is affected by the HPC firmware. If 
the HPC is ready to receive more characters, the BUSY 
signal is cleared and the ACK signal is pulsed. If the HPC is 
not ready to receive more data, it leaves the BUSY signal 
high, which prevents the external system from sending more 
characters. 



The Centronics port STROBE handler is at label "cenint". It 
first determines whether a falling or rising edge was detect- 
ed on the STROBE signal. If the leading (falling) edge was 
detected, then it jumps to label "cstrbl"; otherwise it jumps 
to label "cstrbt" to process a trailing edge. 
At label "cstrbl", the character is placed in the next avail- 
able position of the communication buffer, if the buffer is not 
already full. (If it is already full, then it is processed as an 
error, as discussed below.) Then some tests are performed: 
If the buffer is not full enough to pass data to the CPU, 
then the routine exits by jumping to label "cenlex", where 
it prepares to detect the trailing edge of STROBE. Other- 
wise, it sets the "pass" bit in the variable "bstat", which 
requests the main program to send data to the CPU, and 
then it continues. 

If the buffer is not full enough to tell the external system 
to stop sending characters, then the routine exits by jump- 
ing to "cenlex". Otherwise, it sets the "stop" bit in vari- 
able "bstat", indicating that the external system has been 
stopped, and it also sets the "cbusy" flag in variable 
"cps", which will prevent the Centronics BUSY and ACK 
signals from being changed when the STROBE pulse 
ends. The routine continues. 

If the buffer has become completely full, then the "full" bit 
in "bstat" is set, indicating that any more characters re- 
ceived will trigger an error. Character processing then 
continues at label "cenlex". 

At "cenlex", the Centronics Control Latch is set (tempo- 
rarily) to force the BUSY signal high, because it should 
not become low until the STROBE pulse ends. The 14 pin, 
which detects the STROBE signal, is then re-programmed 
to detect the trailing edge (rising edge at the Centronics 
connector, but falling edge at pin 14 due to an inverting 
buffer). If the trailing edge already has occurred, then this 
reprogramming will set another interrupt pending immedi- 
ately. There is, however, a possibility that the strobe edge 
could occur simultaneously with the reprogramming, with 
unknown results. For this reason, the STROBE signal is 
sampled by the firmware, and if the pulse has already 
completed, then instead of returning from the interrupt it 
jumps immediately to interrupt routine "cstrbt", which pro- 
cesses the trailing edge. 
The code at label "cstrbt" is entered whenever either a trail- 
ing edge interrupt is detected on pin 14 (STROBE), or the 
leading edge interrupt routine jumps to it. It reprograms the 
14 pin to detect a leading edge again, clears the 14 interrupt 



(which is automatically cleared only on interrupt service), 
then jumps to the "setcen" subroutine, which manipulates 
the BUSY and ACK signals appropriately, according to the 
contents of the "cps" variable and the selected ACK timing 
mode in variable "ackmd". 

5.1.5.1 Centronics Error Handling 

A buffer overrun error is processed at label "cenerr". This is 
the only kind of character error that can happen on a Cen- 
tronics interface, and it would be due to an incorrect con- 
nection or a software error. 

For internal firmware debugging purposes, the "cps" vari- 
able bit "cbusy" is again set to ensure that the Centronics 
interface will keep the BUSY signal set. 
If an error is already waiting to be reported (bit "aerr" of 
variable "alert" is already set), then this is a "multiple error" 
condition, and cannot be fully reported. Instead, at label 
"cenmer", the bit "errovf" in variable "errfgs" is set. This 
variable is sent to the CPU when the error is reported. Also, 
the 14 interrupt is disabled, to prevent any further STROBE 
interrupts until a new SELECT-CENT command is received 
from the CPU. 

If no error is waiting to be reported, then bit "aerr" of vari- 
able "alert" is set, requesting the main program to generate 
an lERROR interrupt to the CPU. Further data is provided to 
be passed to the CPU: 

variable "errfgs" is initialized to indicate only a buffer 

overrun error. 

variable "errchr" is loaded with the character that was 

received and could not fit in the buffer. 
Because the received character is reported with the error 
interrupt, and because no data is lost yet, the Centronics 
port is not disabled by this condition. 

5.1.6 UART Communication 

UART communication is performed by the UART interrupt 
routine at label "uarint". After pushing the required registers 
onto the stack, the routine determines which interface is 
selected. If it is the Centronics port, the only cause of the 
interrupt is the INPUT PRIME signal, and the HPC jumps to 
label "uarprm" (see Background Processing/Monitoring 
Tasks, below). If the UART port is selected, then it is due to 
either a receiver or a transmitter interrupt (and the INPUT 
PRIME is gated so that it cannot be presented). 

5.1.6.1 UART Output 

At label "uarout", a transmitter interrupt has been received. 
If the bit "icpu" in variable "ups" is set, this means that the 
character just transmitted was a character sent by a CPU 
SEND-UART command, and the CPU is notified by request- 
ing the lACK-UART interrupt from the Main Program. 
The subroutine "setuar" is now called, to determine wheth- 
er any more characters need to be sent, either for 
XON/XOFF handshaking or because the CPU has request- 
ed the HPC to send another character. If so, another char- 
acter is sent by "setuar", and the UART transmitter interrupt 
remains enabled. If not, the "setuar" routine disables the 
transmitter interrupt. 
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5.1.6.2 UART Input 

At label "uartin", an interrupt has been generated by the 
UART receiver. This means that a character is available to 
be placed into the Communication Buffer. 
The first action taken by the HPC is to read the receiver 
status register ENUR (which contains the 9th data bit and 
the Data Overrun and Framing Error error flags), then it 
reads the character itself from the RBUF register. The 
ENUR register is saved temporarily in variable "enrimg" for 
future processing, but is also held in the Accumulator, which 
is used here to "accumulate" error flags. The HPC then 
prepares to check for a parity error. 
Parity checking is not a hardware feature of the HPC's 
UART, so a bit-table lookup is performed using the 
"X,[B].b" addressing mode of the IFBIT instruction. This ad- 
dressing mode is similar to NS32000 bit addressing, in that 
it allows one to address up to 64 kbits (addressed from the 
contents of the X register) from a base address given in the 
B register. By placing the character to be checked into the X 
register, and pointing the B register at a properly construct- 
ed table (labels "evntbl" and "oddtbl"), a parity error can be 
detected in a single IFBIT instruction (see for example label 
"u8dopr"). 

After loading the X and B registers, a multi-way branch is 
performed (jid), which branches to one of 8 labels depend- 
ing on the character framing mode variable "uframe" (which 
is loaded by the SELECT-UART command). Each mode 
handles parity differently: labels "uiodS" and "uievB" check 
for odd or even parity, respectively, including 9 character 
bits (8 data plus 1 parity) to make the test. Labels "uiod7" 
and "uiev7" include only 8 bits (7 data plus 1 parity). Label 
"nopar" handles the cases where no parity is included in 
the character frame. Also within these routines, a decision is 
made whether a Framing Error seen in the character is also 
a Break condition: if two consecutive characters are seen 
with framing errors with all zeroes in their parity and data 
fields, then the second character is reported as a Break 
character as well as having a framing error. If, at label 
"uinpok", no errors have been flagged in the Accumulator, 
the routine branches to label "uingd" to place the character 
into the Data Communication Buffer for the CPU. If errors 
have been discovered, then the character is instead report- 
ed to the CPU using the IDATA-ERR at label "uinerc". 
The "uingd" portion of this routine is very similar to the por- 
tion of the Centronics input routine that places characters 
into the buffer for the CPU. A different mechanism is used 
for flow control, of course, to stop the external system if the 
buffer becomes full. 

At label "uinerc", a check is made to determine whether the 
CPU has received the last character error reported. If not, 
this is a "multiple error" condition, handled at label 
"uinmce". If so, then this is reported as a new error at label 
"uinlce". The error character and its error flags are provid- 
ed to the Main Program in the mailboxes "errchr" and 
"errfgs", and the bit "aerr" in variable "alert" is set to re- 
quest that a IDATA-ERR interrupt be sent to the CPU. 
On a multiple-error condition, the new error flags are ORed 
with the old ones, handshaking is used to stop the external 



host system from sending more characters, and the UART 
receiver is automatically disabled. The CPU must issue a 
new SELECT-UART command to re-enable it. 
Another pair of routines report an error if the buffer over- 
flows. This error is reported at label "uinlef" if no other 
error report is pending, or at label "uinmef" if this is a multi- 
ple error condition. On a multiple error, an attempt is made 
to stop the external host system from sending characters, 
and the UART receiver is disabled until the CPU issues a 
SELECT-UART command. (A single error does not disable 
the receiver, because no data has been lost yet: the 
IDATA-ERR interrupt reports the character with the error 
report.) 

5.1.7 Buffer Status Reporting 

For internal debugging purposes, four unassigned signals 
from the LCD Contrast Latch are updated to show the 
status of the buffer. While the buffer is full enough to pass to 
the CPU, one bit of the latch (IC 25G, pin 12) is high. While 
the buffer is full enough that the external system should 
stop, pin 15 is high. While the CPU is not ready to receive 
data from the CPU, pin 16 is high. If a buffer overrun condi- 
tion occurs, and data is lost, or if any fatal error occurs (with 
a hexadecimal code appearing on the LCD display), then pin 
19 goes high. The code that handles these bits is flagged 
with the word "DEBUG" in the comment field. 

5.1.8 Background Processing/Monitoring Tasks 

These are tasks that are not triggered directly by CPU com- 
mands. 

Real-Time Clock (T1) Timer T1 is loaded with a con- 
stant interval value which is used 
to interrupt the HPC at 10 ms in- 
tervals. When the Timer T1 inter- 
rupt occurs (labels "tmrint", 
"tlpoll", "flint"), and the real- 
time interrupt is enabled, the vari- 
able "rtccnt" is decremented to 
determine whether a !RTC inter- 
rupt should be issued to the CPU. 
If so, the bit "arte" in the "alert" 
word is set, requesting the main 
program to send a IRTC interrupt 
to the CPU. The main program, at 
label "sndrtc", interrupts the 
CPU. No other data is passed to 
the CPU. 

At label "kbdchk" the panel 
pushbutton switches are also 
sampled. This process is de- 
scribed fully in Application Note 
AN-550. 

At label "dsrchk", the state of the 
UART DSR flag is checked if the 
UART is selected and DSR moni- 
toring mode has been requested 
by the CPU. If it has changed, this 
routine requests the Main Pro- 
gram to issue a lUART-STATUS 
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interrupt to the CPU. The UART 
receiver is also enabled and dis- 
abled by the state of this signal if 
DSR monitoring has been re- 
quested. (The CPU does not 
have to react to the interrupt for 
normal operation, but might wish 
to record its occurrence.) 
At label "brkchk", if the UART is 
selected, and a BREAK has been 
detected, the UART data input 
pin is polled to determine wheth- 
er the BREAK condition has end- 
ed. If a BREAK has ended, then 
this routine requests the Main 
Program to issue a lUART- 
STATUS interrupt to the CPU. 



Centronics INPUT PRIIVIE When the EXUI pin on the HPC is 
activated, and the Centronics 
port is selected rather than the 
UART, the UART service routine 
(at label "uarprm") sets bit 
"aprime" in the "alert" variable, 
requesting the main program to 
send a IPRIME interrupt to the 
CPU. The Centronics port is inter- 
nally flagged (in the "cps" vari- 
able) as being "busy", and the 
Centronics Control Latch is up- 
dated to set the BUSY signal 
high. The UART interrupt is then 
disabled until a SELECT-CENT 
command is received from the 
CPU. In the main program, the 
IPRIME interrupt is sent to the 
CPU at label "sndprm". No other 
data is sent. 
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5.2 HPC Firmware Listing 












S Centronics Port Input 


/ 


checksuB calculation / LCD output. 




tt 


Accepts up to 1024 


characters on Centronics port. 




tt 


accuKulates 8-blt 


check 


sum, and on receiving Ctrl-D, 




» 


displays ctieclcsua 


on LCD display. 






.glob] 


start ,»aln 












.globl 


dalalnt,rtclnt , 


primelnt 








.qlobl 


Icdlnt 












.globl 


swlnt,usttslnt , 


srrlnt ,uwrint 






.qlobl 


dlaqlrit .badlnt 












..<!et 


hpcctrl .OxFFFCOO 




tt HPC Control/Status I/O location. 




.set 


hpcdata.OxFFFEOO 




It HPC Data I/O location. 




.set 


hpcpoll,OxFDOOOO 




tt HPC Poll address 


(UPIC). 




.set 


cr,OxD 












.set 


If ,OXA 












..■set 


ctrlD, 'D'-0x40 












start: 


















tt 


Fin 


interrupt vector locations. 




addr 


badlnt , vex 






tt Interrupt NMI. 


{Unlmplemented) 




addr 


datalnt,vex+4 






tt Interrupt 0x10. 


Comm Buffer data. 




addr 


rtclnt , vex+8 






tt Interrupt 0x11. 


Real-Time Clock. 




addr 


badlnt, vex+12 






tt Interrupt 0x12. 


(Unlmplemented) 




addr 


prlmelnt,vextl6 






tt Interrupt 0x13. 


Centronics PBIME. 




addr 


badlnt, vext20 






tt Interrupt 0x14. 


(Unlmplemented) 




addr 


badlnt, vex+24 






tt Interrupt 0x15. 


(Unlmplemented) 




addr 


badlnt, vex+28 






tt Interrupt 0x16. 


(Unlmplemented) 




addr 


icdlnt, vex+32 






tt Interrupt 0x17. 


LCD data written. 




addr 


swlnt ,vex+36 






tt Interrupt 0x18. 


Pushbutton event. 




addr 


usttsmt ,vext40 






tt Interrupt 0x19. 


UART Status change. 




addr 


errlnt ,vext44 






tt Interrupt OxIA. 


Error detected. 




addr 


uwrxnt , vex+48 






tt Interrupt OxlB. 


UART Write aclc. 




addr 


badlnt, vext52 






tt Interrupt OxlC. 


(Unlmplemented) 




addr 


dlaqlnt ,vex+56 






tt Interrupt OxlD. 


Diagnostic. 




addr 


badlnt ,vex+60 






tt Interrupt OxlE. 


(Unlmplemented) 




addr 


badlnt ,vex+64 






tt Interrupt OxlF. 


(UnlmpleBented) 




addr 


badlnt ,vex+68 






tt Interrupt 0x20. 


(Unlmplemented) 




addr 


badlnt, vex+72 






tt Interrupt 0x21. 


(Unlmplemented) 




movb 


$0, hpcctrl 


» 


miTIALIZE command. 






novb 


$100,hpcdata 


tt 


RTC value: once per second. 




Bovb 


$OxOB, hpcctrl 


« 


Turn 


on two LED's to show we're alive. 




BOVb 


SOxOb,hpcdata 












novb 


$1, hpcctrl 




Select Centronics port. 






novb 


$1 ,hpcdata 






BUSY drops during 


ACK/ pulse. 




BOVb 


$100,hpcdata 






Accept 100 characters before passing 












buffer to CPU; 






movb 


$120,hpcdata 






Apply flow control 
characters. 


If buffer has 120 
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run: 

blspsrv 


$0x800 It Enable Interrupts from HPC. 




main: 


Jt Main program starts here. 




movd 


datoptr, rl tt Register Rl contains buffer out pointer. 




mwalc: cnpd 
bis 


datlptr, rl tt Halt here for a block to come in. 
mwalt 




novb 
cmpb 
beq 


0(il),rO tt Here, process character. 
rO,$ctrlD It If End of File, go type checksum, 
typout 




addb 

addqd 

br 


rO, ckdata 

$l,rl 

mvait 




Cypout : 

blcpsrw 


tt Send checksum out on LCDs. 
$0x800 Jt Disable Interrupts. 




cbltb 


$0, poutflg tt Clear LCD output acknowledge flag. 




movb 
novb 
■ovb 


$OxA,hpcctrl tt Send-LCD command. 

$0x6,hpcdata 

$3,hpcdata 




movb 


$Oxl,hpcdata « Clear panel LCD's. 




movzbd 

Ishd 

movb 

movb 


ckdata, rO tt Send first hex character. 

S-4,r0 

asctab(rO:b],rO 

rO.hpcdata 




movzbd 
andb 

movb 
movb 


ckdata, rO tt Send second hex character. 

$OxF,rO 

asctab[rO:b],rO 

rO.hpcdata 




bispsrw 


$0x800 tt Re-enable Interrupts. 




pnlout: 

bfc 


tbltb $0, poutflg 
pnlout 




Bovqb 
movd 

BOVd 


0, ckdata 

?databuf, datlptr 
datoptr ,rl 




br 


mwait tt Close loop: Infinite. 




ret 


It End of main program. 




malndat : 


tt Data for Mam Program. 




datlptr: .double databuf It Pointer to Data Buffer area. 

datoptr: .double databuf « Pointer to Data Buffer area. 

poutflg: .byte 1 9 DART Output Heady. 

ckdata: .byte « Accum. checksu*. 

asctab: .byte '0' , ' 1' , '2' , '3' , '4' , ' B' , '6' , ■7' 








TL/DD/9977-7 



19 



.byte 
databut! .blKb 


■e','<S','a','b','c','d','e','f' 
1024 « Data buffer area. 




ft Start of Interrupt Service Routines. 

« Invoked by ROM interrupt service. Registers R0..R2 are already 

» saved, but no ENTER Instruction has been performed yet. 




dataint : 


tt Interrupt 0x10. Conn Buffer ready. 




novzbd 
novd 


bpcdata.rO « Get character count from HPC. 
datlptr,rl 




datalp: 

addQd 
acbd 


Bovb hpcdata,0(rl) « Loop: qet character froa HPC, 
l,rl tt increment buffer address, 
-l.rO, datalp B decrement count and loop. 




>ovd 
ret 


rl ,datlptr 





rtclnt: 


n Interrupt Oxll . Real-Tine Cloclc. 




BOVb 

ret 


$4,hpcctrl tt Send Flush-Buf comnand to HPC. 






prlneint: 


« Interrupt 0x13. Centronics PRIME. 




aovb 
novb 

BOVb 

novb 
ret 


$1 ,hpcctrl 
$1 ,hpcdata 
SlOO.hpcdata 
3120,hpcdata 





icdlnt: 


tt Interrupt 0x17. LCD data written. 




sbltb 
ret 


$0,poutf Iq 





swlnt ; 


« Interrupt OxlB. Pushbutton event. 




br 
ret 


badlnt 





usttslnt: 


» Interrupt 0x19. UART Status chanqe. 




br 
ret 


badlnt 





errlnt : 


* Interrupt OxlA. Error detected. 




br 
ret 


badint 





uwrint: 


« Interrupt OxIB. UART Write aclc. 




br 
ret 


badint 





dlaglnt: 


« Interrupt OxID. Diagnostic. 
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movb 


hpcdata 


rO 


novb 


bpcdata 


rO 


movb 


hpcdata 


rO 


«OVb 


tipcdata 


rO 


movb 


hpcdata 


rO 


ret 







badlnt: 




« 



« Trap for unimpleaented interrupts, 
ret 
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« UAHT 


Port input / checksun ca 


Iculation / UABT ou 


:put. 






» 


Accepts up to 1024 


characters on UART port 








t 


accumulates 8-blt 


checksuB, and on recelvl 


ig Ctrl-D, 






tt 


displays checksuB 


by sending out on RS-232 


port. 






.globl 


start, ■ain 














.globl 


dataint,rtcint,prl 


■eint 










.globl 


Icdint 














.globl 


3wlnt,usttsint,errint,uwrlnt 








.globl 


diagint,badint 














.set 


hpcctrl,OxFFFCOO 




« HPC Control/Status I/O location. 






.set 


hpcdata.OxFFFEOO 




tt HPC Data I/O location. 






.set 


hpcpoll .OxFDOOOO 




« HPC Poll address 


(UPIC). 






.set 


cr,OxD 














.set 


If ,OxA 














.set 


ctrlD,'D'-0x40 












start 






















It 


Fill 


interrupt vector locations. 






addr 


badint.vex 






« Interrupt NMI. 


(Uni^plemented) 






addr 


dataint,vex44 






tt Interrupt 0x10. 


Cobb Buffer data. 






addr 


rtcint,vex+8 






» Interrupt 0x11. 


Real-Time Clock. 






addr 


badint,vex+12 






tt Interrupt 0x12. 








addr 


pri»elnt,vextl6 






« Interrupt 0x13. 


Centronics PRIME. 






addr 


badint,vext20 






tt Interrupt 0x14. 








addr 


badint,vex+24 






tt Interrupt 0x15. 








addr 


badint,vex*28 






Interrupt 0x16. 








addr 


Icdint, vex+32 






tt Interrupt 0x17. 


LCD data written. 






addr 


swlnt ,vex+36 






tt Interrupt 0x18. 


Pushbutton event. 






addr 


usttsint ,vext40 






tt Interrupt 0x19. 


UART Status change. 






addr 


errint,vex+44 






tt Interrupt OxlA. 


Error detected. 






addr 


uwrint,vext48 






tt Interrupt OxlB. 


UART Write ack. 






addr 


badint,vex+52 






tt Interrupt OxlC. 


(Unimpleinented) 






addr 


dlagint,vex+56 






tt Interrupt OxlD. 


Diagnostic. 






addr 


badint,vext60 






It Interrupt OxlE. 


(Unimplemented) 






addr 


badint,vex+64 






tt Interrupt OxlF. 


(Unimplemented) 






addr 


badint,vex+68 






« Interrupt 0x20. 


(Unimplemented) 






addr 


badint,vext72 






tt Interrupt 0x21. 


(UnlBpleaented) 






BOVb 


SO,hpcctrl 


« 


INITIALIZE co««and. 








■ovb 


SlOO,hpcdata 


S 


RTC 


/alue: once per second. 






movb 


$OxOB,hpcctrl 


n 


Turn 


on two LED's to show we're alive. 






■ovb 


$0x06,hpcdata 














novb 


$2,hpcctrl 


9 


Select UART and set up parameters. 






■ovb 


$5,hpcdata 


n 




9600 baud. 








■ovb 


$2,hpcdata 


« 




8 bits, no parity. 








■ovb 


$OxA,hpcdata 


« 




XON/XOFF protocol, 


DTR always on. 






■ovb 


$100,hpcdata 


« 




Accept 100 characters before passing 










« 




buffer to CPU; 








movb 


S120,hpcdata 


« 




Apply flow control 


if buffer has 120 
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It characters. 




run: 










bispsrv 


$0x800 » Enable interrupts fro» HPC. 




aaln: 




« Main progran starts here. 






BOVd 


datoptr.rl « Register Rl contains buffer out pointer. 




await: 


capd 


datiptr.rl It Wait here for a block to cooe in. 






bis 


■wait 






■ovb 


0(rl),rO « Here, process character. 






capb 


rO,$ctrlD » if End of File, go type checksm. 






beq 


typout 






addb 


rO,ckdata 






addqd 


$l,rl 






br 


■wait 




typout 




tt Send checksuB out on RS-232 port. 






■ovb 


$cr,rO 






bsr 


serout 






■ovb 


$lf,rO 






bsr 


serout 






■ov2bd 


ckdata.rO 






Ishd 


$-4,rO 






■ovb 


asctab[rO:b] ,rO 






bsr 


serout 






Bovzbd 


ckdata,rO 






andb 


$OxF,rO 






■ovb 


asctab[rO;b] ,rO 






bsr 


serout 






BOVb 


$cr,rO 






bsr 


serout 






■ovb 


$lf,rO 






bsr 


serout 






■ovqb 


0,ckdata 






IBOVd 


$databuf ,datlptr 






■ovd 


datoptr.rl 






br 


■wait tt Close loop: infinite. 






ret 


Jt End of ■ain program. 




serout 


! 


tbitb $0,uoutflg 






bfc 


serout 






cbitb 


$0,uoutflg « Indicate UART not ready. 






bicpsrv 


$0x800 tt Critical Sequence: 






BOVb 


$OxD,hpcctrl « Give Send-UART co^»and to HPC. 






■ovb 


rO,hpcdata # Give character to HPC. 






blspsrw 


$0x800 « End critical sequence. 
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ret 







■alndat: 


tt Data for Main Program. 




datiptr: .double databuf S Pointer to Data Buffer area. 

datoptr: .double databuf « Pointer to Data Buffer area. 

uoutflg: .byte 1 » UABT Output Ready. 

Gkdata: .byte « Accun. checksua. 

asctab: .byte "0' , '1' , '2' , 'S' , ■4' , ' 6' , '6' , '7' 

.byte '8' ,'9' , 'a' ,'b' ,'c','d' ,'e' ,'f' 
databuf: .blkb 1024 « Data buffer area. 




« Start of Interrupt Service Routines. 

ft Invoked by ROM Interrupt service. Registers R0..R2 are already 

« saved, but no ENTER Instruction has been performed yet. 




datalnt: 


it Interrupt 0x10. Coaa Buffer ready. 




Dovzbd 
■ovd 


hpcdata.rO t> Get character count from HPC. 
datiptr, rl 




datalp: 

addqd 
acbd 


■ovb hpcdata,0(rl) « Loop: get character from HPC, 
l,rl 9 Increment buffer address, 
-l,rO, datalp tt decrement count and loop. 




■ovd 
ret 


rl, datiptr 





rtclnt: 


» Interrupt 0x11. Real-Time Clock. 




■ovb 
ret 


$4,hpcctrl » Send Flush-Buf command to HPC. 





prl^elnt : 


» Interrupt 0x13. Centronics PRIME. 




br 

ret 


badint 





Icdint: 


« Interrupt 0x17. LCD data written. 




br 
ret 


badint 





swlnt: 


It Interrupt 0x18. Pushbutton event. 




br 
ret 


badint 





usttslnt; 


tt Interrupt 0x19. UART Status change. 




br 
ret 


badint 





errlnt ! 


« Interrupt OxlA. Error detected. 




br 


badint 
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ret 



uwrlnt: 



» Interrupt OxlB. UART Write ack. 



sbitb $0,uoutflg 

ret 

dlagint: « Interrupt OxlD. Diagnostic, 

movb tipcdata.rO 

ttovb hpcdata.rO 

movb hpcdata.rO 

■ovb hpcdata,rO 

movb hpcdata.rO 

ret 



badlnt: 



» Trap for unliplenented Interrupts. 



ret 
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.title CEKTUART,'HPC FIHMBARE: CEMTROMICS/UAHT PORTS' 








program centuart.asa version 1.0 05/22/88 
Copyright (C) 1988 by national Se»iconductor Corp. 

(«««*«*««*««**»««««IH1**««****«««**»*«««»«******»««»*«»»«*********«**«»»*) 








Copyright (c) 1988 by National Se»iconductor Corporation 










National Seniconductor Corporation 
2900 Semiconductor Drive 
Santa Clara, California 95051 




*) 






All rights reserved 








This software is furnished under a license and may be used 
and copied only in accordance with the terms of such license 
and with the inclusion of the above copyright notice. This 
software or any other copies thereof may not be provided or 
otherwise made available to any other person. No title to and 
ownership of the software is hereby transferred. 








The Information in this software is subject to change without 
notice and should not be construed as a commitment by National 
Semiconductor Corporation. 










National Semiconductor Corporation assumes no responsibility 
for the use or reliability of its software on equipment 
configurations which are not supported by National 
Semiconductor Corporation. 


* ^ 






(* "J 








Derived from hpcupi.asm file. However, commands have 

been re-mapped (different code values), and so are not exactly 

upward compatible. 










Adds commands and Interrupts to support input, buffering, 
handshaking and mode selection for an RS-232 port and 
a Centronics-style parallel port. 








.form 'Declarations: Register Addresses' 






psv 

al 

ah 

bl 

bh 

xl 

xh 


x'C0:w ; PSW register 
= x'C8:b ; Low byte of Accumulator. 
= x'C9!b ; High byte of Accumulator. 

x'CCib ; Low byte of Register B. 

x'CD:b ; High byte of Register B. 

x'CE:b ; Low byte of Register X. 

x'CF:b ; High byte of Register X. 






enlr 

irpd 

ircd 

slo 

porti 


x'DOib 
x'D2:b 
x'D4:b 
x'D6:b 
x'D8;b 
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obuf 


_ 


x'EO:b ; 


(Low byte of PORTA.) 




portah 


= 


x'El.-b ; 


High byte of PORTA. 




portb 


= 


x'E2:v 






portbl 


= 


x'E2!b ; 


Low byte of PORTB. 




portbh 


= 


x'E3:b ; 


High byte of PORTB. 




uplc 


= 


x'E6:b 






Ibuf 


= 


X'FO:b ; 


(Low byte of DIRA.) 




dirah 


- 


x'Flib ; 


High byte of DIRA. 




dirb 


= 


x ' F2 ! w 






(Jirbl 


= 


x'F2:b ; 


Low byte of DIRB. 




dlrbh 


= 


x'F3:b ; 


High byte of DIRB. 




bfun 


= 


x'F4:w 






bfunl 


= 


x'F4:b ; 


Low byte of BFUN. 




bfunh 


= 


x'FSib ; 


High byte of BFUM. 




portd 


= 


x'0104:b 






enu 


= 


x'0120:b 






enul 


= 


x'0122:b 






rbuf 


= 


x'0124!b 






tbuf 


= 


x'0126!b 






enur 


= 


X'0128!b 






t4 


= 


X'0140:v 






r4 


= 


x'0142:v 






t5 


= 


x'0144:w 






r5 


= 


x'0146:w 






t6 


= 


x'0148:w 






r6 


= 


x'014A:w 






t7 


= 


x'014C:w 






r7 


= 


X'014E:W 






pwBOde 


= 


X'0150:w 






pvadl 


= 


x'0150:b 


; Low byte of PWMODE. 




pvBdh 


= 


x'0151:b 


; High byte of PWMODE. 




portp 


r 


x'0152!W 






portpl 


= 


x'0152:b 


; Low byte of PORTP. 




portph 


= 


x'0153:b 


; High byte of PORTP. 




el con 


= 


x'015C:b 






tl 


= 


x'0182:w 






rl 


= 


x'0184:v 






r2 


= 


x'0186:w 






t2 


= 


x'0188;w 






r3 


= 


x'018A:v 






t3 


= 


x'018C:w 






dlvby 


= 


X'018E:w 






divbyl 


= 


X'018E:b 


; Low byte of DIVBY. 




divbyh 


= 


x'018F:b 


; High byte of DIVBY. 




tBBOde 


= 


X' 0190!W 






tiBdl 


= 


x'0190:b 


; Low byte of TMMODE. 




tBBdh 


= 


x'0191:b 


; High byte of TMHODE. 




tOcon 


= 


x'0192:b 








.forB 'Declarations: Register Bit Positions 




; Maae 




Position 


Reglster(s) 




gle 


= 


; 


enlr 




12 




2 ; 


enlr, irpd, ircd 
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13 


_ 


3 


enir. 


irpd, ircd 




14 


s 


4 


enlr. 


Irpd, Ircd 




tsra 


= 


5 


enlr. 


Irpd 




uart 


= 


6 


enlr, 


Irpd 




el 


= 


7 


enlr. 


Irpd 




dsr 


= 


7 


portl 


only: poll UART DSR. 




uvBode 


= 


1 


Ircd 






uwdone 


= 





Irpd 






tbnt 


= 





enu 






rbfl 


= 


1 


enu 






b8or9 


= 


4 


enu 






xblt9 


= 


5 


enu 






vak:eup 


= 


2 


enur 






rblt9 


= 


3 


enur 






fraerr 


= 


6 


enur 






doeerr 


= 


7 


enur 






eti 


= 





enul 






eri 


= 


1 


enul 






xtclk 


= 


2 


enul 






xrclk 


= 


3 


enul 






b2stp 


= 


7 


enul 






wrrdy 


= 





uplc 






rdrdy 


= 


1 


uplc 






laO 


= 


2 


uplc 






uplen 


= 


3 


uplc 






b8orl6 


= 


4 


uplc 






tOtle 


= 





tnndl 






tOpnd 


= 


1 


tBBdl 






tOack 


= 


3 


tnndl 






title 


= 


4 


tBBdl 






tlpnd 


= 


5 


tBBdl 






tlstp 


= 


6 


tBBdl 






tlack 


= 


7 


tBBdl 






tztle 


= 





tBBdh 






t2pnd 


= 


1 


tnodh 






t2stp 


= 


2 


tBBdh 






t2ack 


= 


3 


tBBdh 






t3tle 


= 


4 


tBBdh 






t3pnd 


= 


5 


tmndh 






tSstp 


= 


6 


tBBdh 






t3acK 


= 


7 


tandb 






t4tle 


= 





pwBdl 






t4pnd 


= 


1 


pvBdl 






t4stp 


= 


2 


pvBdl 






t4ack 


= 


3 


pwBdl 






tBtle 


= 


4 


pwBdl 






tBpnd 


= 


5 


pvBdl 






t5stp 


= 


6 


pvBdl 






tBack 


= 


7 


pvBdl 






tetie 


= 





pvBdh 






t6pnd 


= 


1 


pwndh 






testp 


= 


2 


pvBdh 






t6acl£ 


= 


3 


pwBdh 






t7tle 




4 


pvBdh 
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t7pnd = 


5 


; pvudh 


t7stp = 


6 


; pwndh 


t7ack = 


7 


; pvBdh 


t4out = 





; portpl 


t4tfn = 


3 


; portpl 


tSout = 


4 


; portpl 


tBtfn = 


7 


; portpl 


teout = 





; portph 


tetfn = 


3 


; portph 


t7out = 


4 


; portph 


t7tfn = 


7 


; portph 



cenclk = 



portph (CCTLCLK signal). 



txd 

dtr 
pnlclk = 



1 
7 


Icvclk = 
; uaO would 
uwrrdy = 
cdata = 
astts = 
ledclk = 
urdrdy = 


1 
be 2 
3 
4 
5 
6 
7 


; CONSTANTS 


xon= x'll 
xoff= x'13 


; 



; portbl, dlrbl, bfunl 

; portbl, dirbl 

; portbl, dlrbl 

; portbh, dirbh 
but requires no setup. 

; portbh, dlrbh, bfunh 

; portbh (enables Centronics data to Port D) 

; portbh (enables panel switches to Port D). 

; portbh, dirbh 

; portbh, dlrbh, bfunh 



XON character; 
XOFF character: 



Control-Q 
Control-S 



.fora 'Space Declarations' 

botad= x'40 ; First address In buffer. 

topad^ x'BF ; Last address In buffer. 

buf3iz= topad-botad+1 ; Length of buffer. 

.sect BUFFER, BASE, ABS=botad ; Data Communication Buffer. 

.dsb bufsiz 

.endsect 

.sect DSECT,BASE,REL ; Basepage BAM variables (addresses 0000-OOBF) 



; WORD-ALIGNED 



duBsy: 



alert! 



cpuad: 
cpubuf 
Icdslx 



,dsw 
.set 
.dsw 

.set 
.dsv 



; x'00,01 ; Destroyed on reset (address 0). 

uplcsv, dummy ; Temporary image of UPIC register. 

; Alert status bits to main program: 

; generate Interrupts to CPU. 

alerth,alert+l ; Declare top byte of ALERT word. 

; Current address within CPU command buffer. 

.dsw 4 ; Buffer for accepting command parameters from CPU. 

.dsw 1 ; Pointer into LCD character string buffer. 



; BYTE-ALIGNED 
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nuBchr : 






.dsb 1 ; NuBber of characters currently In data buffer. 


cadin: 


.dsb 


1 


; Current input byte address In data buffer 
; {first eipty loc). 


cadout: 






■dsb 1 ; Current output byte address In data buffer. 


pascnt : 






.dsb 1 ; NuBber of characters before data buffer full enough to 
; transmit to CPU. 


stpcnt: 






.dsb 1 ; NuBber of characters before host systea Is told to stop 
; transmitting. 


nunout: 






.dsb 1 ; NuBber of data characters (total) being sent to CPU in 
; current transfer. 


cntout: 


.dst 


1 


; NuBber of data characters reaaining to be sent to CPU in 
; current transfer. 


bstat: 


.dsb 


1 


; Buffer Status byte. 


cps: 


.dsb 


1 


; Centronics Port Status byte 
; (iaage of control signals). 


ackmcl: 


.dsb 


1 


; Acknowledge Tiaing Mode: Position of ACK/ pulse edges 
; on Centronics port relative to BUSY falling edge. 


curcBd: 






.dsb 1 ; Current coBBand byte fron CPU being processed. 


nuaexp: 






.dsb 1 ; Nuaber of paraaeter bytes expected before coamand processing 
; begins. 


ICVS! 


.dsb 


1 


; Image of LCD Voltage (Contrast) latch setting; needed with 
; LCD RS (PAUXO) signal coming from this latch. 


fshlin: 






.dsb 1 ; Flush liBit count: used to limit number of characters passed 
; to CPU when an error report is pending. 


errchr: 






.dsb 1 ; Holds character on which an error was detected. 


errfgs: 






.dsb 1 ; Holds error flags associated with error character. 


Icdfgs: 






.dsb 1 ; Holds flag bits for characters sent to Panel LCD display. 


Icdnun: 






.dsb 1 ; HuBber of characters to be sent to LCD display. 


Icdsfg: 






.dsb 1 ; Flag bits associated with characters in LCD String Buffer. 


Icdsct: 






.dsb 1 ; Counter for characters being sent to LCD display from String 
; Buffer. 


swlast: 






.dsb 1 ; Last-sampled switch values. 


swlsnt: 






.dsb 1 ; Last switch values sent to CPU. 


beepct: 






.dsb 1 ; Beep duration count. Counts occurrences of TO interrupt. 


ufraae: 






.dsb 1 ; Frame mode for UART. 


uflow: 


.dsb 


1 


; Flow control mode for UART. 


ups: 


.dsb 


1 


; UART Status byte. 


uschr: 


.dsb 


1 


; UART Send Character; from CPU. 


uinchr; 






.dsb 1 


UART Input Character: character last received from UART. 


enrlag: 






.dsb 1 


UART EHUR register image in aemory. 


rtclvl! 






.dsb 1 


Real-Time Clock Interval (units of 10 milliseconds). 


rtccnt! 






.dsb 1 


Real-Time Clock Current Count (units of 10 milliseconds). 


rtevs; 


,dsb 




; Events to check for on Timer Tl interrupts. 


ustat: 


.dsb 




; UART status for CPU. 


dsevc: 


.dsb 




; Diagnostic Interrupt: Severity Code. 


derrc: 


.dsb 




; Diagnostic Interrupt: Error Code. 


dbyte: 


.dsb 




; Diagnostic Interrupt: Error Byte. 


dccmd: 


.dsb 




; Diagnostic Interrupt: Current Command. 


dgual: 


.dsb 




; Diagnostic Interrupt: Qualifier (Coaaand Status). 


; ♦ Addresses 


0040-OOBF are reserved for the Data COBBunication Buffer 


; (128 bytes). 


; 


BIT POSITIONS 




; Bits 


in BSTAT byte (Data Coaaunication Buffer Status): 


pass^" 







; Data is ready to be passed to the CPU. 


passng= 






1 ; Indicates that some of the data in the buffer is being 
; passed to the CPU. 


stop= 


2 




; Indicates that host has been requested to stop transaittlng. 
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cpubsy= 




3 ; Indicates that CPU is not able to receive any more data. 




lfcbsy= 




4 ; Indicates that the Interface Is considered busy by CPU. 




fun= 5 




; Indicates that the Interface is completely full. Any more 
; characters will overflow It. 






Bits 


In CPS (Centronics Port Status byte) 




cack= 




; ACK/ Strobe. 




cauxl= 1 




; AUXOUTl Signal. 




cbusy= 2 




; BUSY Signal. 




cselct= 




3 ; SELECT Signal. 




ccan= 4 




; CALL Signal. 




cfault= 




5 ; FAULT/ Signal. 




caux2= 6 




; AUX0UT2 Signal. 




enpri= 1 




; 1 enables IHPUT PRIME/ interrupt froa Centronics port. 




• 


Bits 


in ACKMD (Centronics Acknowledge Mode byte) 




; (Bits' 


and 


1 give tiling relationship between BUSY and ACK/.) 




clin«d= 




2 ; 1 = Centronics Line Mode. Buffer limits must also both be 1. 




; (Other 


bits 


unassigned. ) 






ALERT status word (low-order byte) bits: 




aflush = 




; Flush Data Buffer. 




arte 




1 ; Real-Time Interrupt detected. 




aprlae = 




3 ; INPUT PRIME detected from Centronics interface. 




alcdak = 




7 ; LCD Panel Write Acknowledge. 






ALERT status »ord (high-order byte, named alerth) bits; 




abutton 




; Pushbutton switch state change. 




austat =: 




1 ; UART status change. 




aerr 




2 ; Error detected (UART or buffer overflow). 




auack = 




3 ; UART output acknowledge: character sent. 




adiag = 




5 ; Diagnostic interrupt. 




; (Other 


bits 


not defined. ) 






ERRFGS error flags byte sent to CPU with ! BAD-DATA interrupt: 




doe= 




; Data Overrun Error on UART. 




fri>= 6 


; Framing Error on UART, 




par= 5 


; Parity error on UART. 




bufovf= 




4 ; Buffer Overflow condition (flow control did not work). 




errovf = 




3 ; Error Overflow condition. Two or more errors occurred 










SO close together that the first error could not be 










reported before the second error occurred. Details 










of the second error are lost. 




brk- 2 




Break condition detected In addition to Framing error. 




; (Other bits 


not defined. ) 






CURCHD byte: Current CPU comnand. The lower 5 bits contain a code 








In the range 0-10 (hex). The upper two bits contain 








further Information about command collection: 




cadenp= 




7 ; Bit 7 (MSB) of curcmd = 1 means that no command is being 
; processed and curcmd byte Is "empty". 




getcnt= 




6 ; Bit 6 of curcmd = 1 means that the count is being received 
; for a variable-length command. 






LCVS 


byte: LCD Voltage (Contrast) Latch memory image. 

Contains voltage value in its least-significant 3 bits, 
RS signal to LCD controller In bit 3, and debugging 
information in its top 4 bits. 




pnlr3= ; 


} 


; Bit 3 Is (Inverted) RS signal to panel. 






UPS 


ayte; Status of UART output and flow control. 
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usel= 7 
■ceBd= 6 
brKBd- 5 

onebrk= 
icpu= 3 



schr= 

CU3 = 

luss= 



When set, means that UART port Is selected. 

Receiver disabled due to nultiple character error. 

BREAK signal has been detected and Is still active; receiver 

disabled. 

; One character which is possibly a BREAK has been seen. 
When set, neans that CPU should be inforned of next UART 

transmitter Interrupt. 
Request to send a character from uschr location (from CPU). 
Current UART status: 1 = stopped. 
Last UART Status Sent: Indicates what the external system 

thinks the UART's status is. 



; UFLOW byte: Modes for UART flow control. 
fleBp= 7 ; 1 = No flow control yet provided since reset. 
; {intervening bits not defined.) 
xonb= 3 ; 1 = XOB/XOFF protocol 
dtrbl= 2 ; DTR Mode field: 00 
dtrbO= 1 ; 01 

10 
; 11 = 



d3rb = 



lode selected, 
permanently low. 
permanently high, 
low when ready, 
high when ready. 



1 = characters received while DSR low will not be accepted. 



; USTAT byte: Status of UART reported to CPU. 
dsrflg= ; State of DSR signal. 1 = Data Set Ready condition. 
brkflg= 1 ; 1 = End of BREAK condition detected. 



rtcenb= 
brkenb= 



RTEVS byte: Events to check for at 10-milllsecond Intervals. 
(Tl Underflows) 

; 1 = Real-Time Clock interrupts enabled to CPU. 

1 ; 1 = UART Break mode; report end of break. 



.sect STACK, RAM16,REL ; On-chip RAH In addresses OICO-OIFF. 
stackb: .dsw 16 ; Space for 8 words beyond 

; interrupt context, 
avail: .dsw 12 ; Spare portion of this space. 
Icdbuf: .dsw 4 ; LCD String Buffer. 



. form 
.sect 



'Code Section' 
CSECT,R0M16,REL ; Code space. 



(On-chip ROM) 
; Declarations of subroutines called by one-byte JSRP instruction. 



.spt 
.spt 



rdwait 
wrpnl 



Waits for CPU to read a value from UPI port. 
Writes to LCD panel (for initialization only). 



Program starts at label "start" on reset. This routine Is the fatal 
error handler, located here for convenience In setting breakpoint, 

hangup: rbit gle.enlr ; Fatal error: signal it and halt. 

Signal error on most-significant bit of 

LCD Contrast Latch. 
Select command mode for LCD controller. 
Place error on Port A for latch. 
Clock LCD Contrast Latch high, 
then low to load it. 

Set up Timer T6 for non-lnterrupt use. 

; Clear Pending bit. 





rbit gle.enlr 


sbit 


7,lcvs 


sbit 


pnlrs,lcvs 


Id 


portah.lcvs 


sbit 


Icvclk.portbh 


rbit 


Icvclk.portbh 


sbit 


t6stp,pwBdh 


rbit 


t6tle,pwBdh 


nop 




rbit 


t6pnd,pwBdh 
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pop 


O.w 


; Get error address from stack. 






Id 


sp.w,«stackb 


; In case of stack underflow, re-lnltiallze SP. 






Id 


A,#x'01 








Jsrl 


wrpnl 


; Clear LCD panel. 






rblt 


pnlrs,lcvs 


; Set up panel for data. 






Id 


portah.lcvs 


; Place error on Port A for latch. 






sbit 


Icvclk.portbh 


; Clock LCD Contrast Latch high. 






rbit 


Icvclk.portbh 


; then low to load It. 






Id 


A,l.b 


; Process first character of return address. 






swap 


A 








and 


A,«x'OF 








Id 


A,hextab[A].b 








Jsrl 


wrpnl 


; Display it on LCD panel. 






Id 


A.l.b 


; Process second character of return address. 






and 


A,«x'OF 








Id 


A,hextab[A].b 








Jsrl 


wrpnl 


; Display it on LCD panel. 






Id 


A.O.b 


; Process third character of return address. 






swap 


A 








and 


A.SX'OF 








Id 


A,hextab[A].b 








Jsrl 


vrpnl 


; Display it on LCD panel. 






Id 


A.O.b 


; Process last character of return address. 






and 


A,«x'OF 








Id 


A,hextab[A].b 








jsrl 


wrpnl 


; Display it on LCD panel. 




hgupl: 


ifblt 


rdrdy.uplc 


; Check to see if OBUF register is full. 






Id 


obuf ,#vdiag 


; If not, fill it with !DIAG vector 
; continuously. 






ifblt 


i3,lrpd 


; Check for DPI data ready. 






JP 


hgupil 








JP 


hgupl 






hgupll 


JP 
JP 


ifeg ibuf,«x 

hgrst 

hgupl2 


A5 ; Check for RESET co»Band. 




hgrst: 


Ifblt 
JP 


laO.upic 
hgupl2 








J«pl 


xreset 


; If so, then go reset the HPC. 

; This is part of the outer loop, waiting for 
; the RESET coBBand . 




hgupl2 


; 


Id irpd,«x 


F7 ; Clear the UWR detector. 






jp 


hgupl 


; and keep looking. This is an 

; infinite loop until RESET Is seen. 




iiextab 




.byte 'O'.'l' 


■2' ,'3', '4', '5' ,'6' ,'7' 






.byte 


'8', '9' ,'A' ,'B' 


'C ,'D' ,'E' ,'F' 






.fori 


'Hardware Initialization' 




start : 


Id 


psw.b,ttx'08 


; Set one WAIT state. 




srfah: 




; start 
; as q 


dynaBlc RAM refreshing, 
ilckly as possible. 






sbit 


t4out ,portpl 


; Trigger first refresh 
; iDoediately. 






sbit 


t4stp,pw>dl 


; Stop tlaer T4 to 
; allow loading. 
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Id 


t4,«e 


; then load it. 




rbit 


t4stp,pwadl 


; Start tiner T4. 




S6U 


t4tfn,portpl 


i Enable pulses out. 




Id 


r4,»8 


; Load R4. 




supl: 




; Set up UPI port. 




Id 


upic,«x'18 


; 8-Bit UPI Mode 
; enabled. 




sbit 


uwrrdy,bfunh 


; Enable UHRHDY/ out. 




sbit 


uwrrdy.dirbh 






Id 


A.ibuf 


; Eapty IBUF register, 

; in case of false trigger. 




sbit 


urdrdy,bfunh 


; Enable URDRDY/ out. 




sbit 


urdrdy.dirbh 


; Set up UREAD/ interrupt. 




sbit 


i2,ircd 


; Detects rising edges. 




id 


irpd,«x'FB 


; Clear any false interrupt 
; due to >ode change. 

; Set up UWRITE/ interrupt. 




sbit 


i3,lrcd 


; Detects rising edges. 




Id 


lrpd,«x'F7 


; Clear any false interrupt 
; due to node change. 




sran: 


; Clear 


all RAM locations. 






; Clear 


Basepage bank: 




Id 


BK,«x'0000,#x'OOBE ; Establish loop base and Halt. 




sranll: 


clr A 






xs 


A,[Bt).w 






JP 


sranll 








; Clear 


Non-Basepage bank: 




Id 


BK,«x'01C0,»x'01FE ; Establish loop base and li»lt. 




sraal2: 


clr A 






xs 


A,[Bt].w 






JP 


sraal2 






sskint: 




; Set up Stack and reiove 






; individual interrupt enables. 




Id 


sp.v.ttstackb-fZ 


; Move stack to high 
; bank of on-chip RAM. 




Id 


stackb.v.lthengup ; Safeguard against 








; stack underflow. 




Id 


enir,«x'00 


; Disable interrupts 
; individually. 




tiinit! 


Id tOcon,«x'08 




Id 


tBROde,«x'4440 


; Stop tlners Tl , T2, T3. 




id 


dlvby,#x'0055 


; UAHT set to 9600 Baud. 




Id 


tBliOde,«x'CCC8 


; Clear and disable tiaer 
; T0-T3 interrupts. 




scent: 




; Set up Centronics parallel 
; port. 




Id 


dirah,«x'FF 


; Enable nultiplexed outputs. 




sbit 


astts.portbh 


; Enable and renove ENASTTS/ signal. 




sbit 


astts.dirbh 
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suart: 



sled: 



stars: 



sbit 
sblt 
Id 

Jsrl 



sblt 
Id 



Id 
Id 



Id 
nop 
nop 
Id 



cdata,portbli 

cdata.dlrbb 

cps,«x'25 

setcen 



14,lrcd 
irpd,#x'EF 



sblt 


txd.bfunl 


sbit 


txd,dirbl 


rblt 


dtr.portbl 


sblt 


dtr.dlrbl 


Id 


enu,#x'0 


Id 


enur,(tx'0 


Id 


enul,«x'80 


Id 


portah,«x'FF 


rblt 


ledclK,portbh 


sblt 


ledclS.dlrbh 


sblt 


ledcllcportbh 


rblt 


ledclk.portbh 



tl,«12287 
rl,«12287 



pwaode,ltx'4440 
pwmode,«x'CCC8 



Enable and remove EHCDATA/ signal. 

Set up Port A data for 
Centronics Control. 
Send to Centronics latch and to Busy flag. 

Set up 14 interrupt on 

CINTR/ (rising edge). 
Clear any false interrupt 

caused by aode change. 

Set up RS-232 port. 
Enable TXD output. 

Set up DTB signal. (State Is arbitrary: 

low typically means not ready.) 
Enable It as an output pin. 
8-bit Mode. 
Clear Wake-Up Mode. 
Internal baud; 2 stop 

bits; no interrupts. 

Set up to turn off LED's. 
Start with LEDCLK low, 

(enable output) , 

then high, 

then low again. 

Set up remaining timers. 
(T1-T3 already stopped 
and pending bits cleared 
at tminlt above. ) 

Tl runs at lO-mlllisecond real-time Interval. 

Timer remains stopped, and interrupt 
disabled, until INITIALIZE command. 

Stop timers T5-T7. 
Halt for valid PNO 

bits. 
Clear and disable 

interrupts from all 

PWM timers. 



Id 

Id 
Id 

rblt 
rbit 



r6,«x'FFFF 



No modulus for LCD Display Ready timer. 



t7,«204 ; Set T7 to underflow at 6 KHz rate 

r7,«204 ; (= 3 KHz at pin). 

t7tfn,portph ; Disable beep tone to panel speaker. 

t7stp,pwmdh ; Start T7 running. 



sled: 



Id 



Set up LCD display. 
Requires use of timer T6, so 
appears after timer initialization. 

First, set up LCD contrast. 



lCV3,«X'0A 



Initialize memory image of LCD Voltage 
latch, containing RS (PAUXO) bit also. 
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Id 

rbit 
sbit 
sblt 
rbit 



sblt 
sbit 



sbit 

Id 

rbit 



Icdlpl: 



Icdgol: 



JP 
JP 



portah.lcvs 

Icvclk.portbh 
Icvclk.dirbh 
lcvclk,portbh 
Icvclk.portbh 



Arbitrary initial contrast level of 5, 

and RS/ (PAUXO/) Is high (="co«Band") . 
Start with LCVCLK low, 

(enable output) 

then high, 

then low to get it into LCV latch. 



; Initialize PMLCLK (Panel "E" signal). 
pnlclk,portbl ; Start with PNLCLK high 
pnlclk,dlrbl ; (enable output). 

Wait for worst-case comnand 
execution time (4.9 us, twice), in case 
a panel cosisand was triggered while 
PNLCLK was floating. 

t6ack,pwndh ; Clear T6 PND bit. 

t6, 813000 ; Set T6 to twice 4.9 milliseconds. 

t6stp,pw«dh ; Start timer T6. 

ifbit t6pnd,pwmdh ; Wait for T6 PND bit 
; to be set. 

icdgol 

Icdlpl 

sbit 



t6stp,pwmdh 



Stop tiner T6. 



sbit t6ack,pwmdh 



Clear T6 PHD bit. 



Id 


A,«x'38 


Jsrl 


wrpnl 


Id 


A,«x'38 


jsrl 


wrpnl 


Id 


A,«x'3e 


jsrl 


wrpnl 


Id 


A,«x'38 


Jsrl 


wrpnl 


Id 


A,«X'08 


Jsrl 


wrpnl 


Id 


A.ltx'Ol 


Jsrl 


wrpnl 


Id 


A , «x ' 06 


Jsrl 


wrpnl 


Id 


A,«x'OE 


Jsrl 


wrpnl 



Reset Panel controller (per Hitachi HD44780 
User's Manual) . 

(Panel RS signal was set 
In LCD Contrast initiallEation above, 
30 no change needed here to 
flag these as a commands.) 

Send "8-Bit Mode, 2 Lines" command: one; 

two; 

three; 

four times. 

Disable display. 

Clear display RAH. 

Initial default mode settings. 



Set mode to move cursor to the right, no 

automatic shifting of display. 
Enable display: non-blinking cursor node. 



CONTINUES TO MAIN PROGRAM INITIALIZATION 
.form 'Main Program Initialization' 



minlt: 



; Once-only Initializations. 
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Id 


curc«d,«x'80 


Current Connand: top bit set neans "none". 






Id 


cpuad,«cpubuf 


Set CPU coiaand index to beginning of buffer. 






Id 


nunexp.ttS 


Arbitrary starting value. 








; Arbitrary set of initialization values for variables, 










in effect until receipt of the first IMITIALIZE 










connand. 






Id 


nuBcbr.ttO 


Clear count of characters received. 






Id 


cadin.ttbotad 


Hext character In froB conn port goes to 
first byte of buffer. 






Id 


cadout .ttbotad 


Next port data character out (to CPU) 
cones fro« first byte of buffer. 






Id 


nuBout,)tO 


Mo characters being sent to CPU. 






Id 


cntout,«0 


Ho characters being sent to CPU. 






Id 


pascnt,«126 


Send to CPU when 125 characters received. 






Id 


stpcnt,»126 


Stop host when 126 characters received. 






Id 


bstat,«0 


Set buffer ready to receive. 






Id 


alert, «0 


Ho events pending. 






Id 


ackid.ttl 


BUSY will fall during ACK/ pulse. 






Id 


errchr,«55 


Arbitrary fill for error character. 






Id 


errfgs,«0 


Clear error detail flags. 






Id 


uflo»,«x'80 


Set UABT flow control node byte empty. 




runsys 






Enable Interrupts, start timers and go to aaln 


loop. 




3blt 


tirs.enir 


Enable timer Interrupts. {Done here 
to allow certain commands without an 
INITIALIZE command first.) 






sbit 


I3,enlr 


Enable CPU Command Interrupt. 






sblt 


gle,enlr 


Enable interrupt system. 






. for* 


'Main Scan Loop' 






; 


Declarations 






vdata 


= 


x'lO ; CPU DAI 


FA vector number. 




vrtc 


= 


x'll 


Beal-T] 


Lme Clock vector number. 




vprl«e 


= 


x'13 


Centroi 


lies IHPUT PRIME signal. 




vlcdak 


= 


x'17 


Acknow] 


edge finished writing to LCD panel. 




vbutton 


X'18 


Pushbutton status change: a button pressed or 










releai 


sed. 




vustat 


= 


x'19 


Change 


in UART DSR signal, or end of BREAK. 




verr 




X'lA 


Charact 
erroi 
eitht 


-er received with error from UART, or gross 
• condition in buffering or flow control on 
sr port. 




vuack 


= 


x'lB 


UART 01 


itput acknowledge: character sent. 




vdlag 


= 


x'lD 


Diagno! 


itic Interrupt. 




aalnlp 




; Error Vectors 


for unlmplemented or 








unexpected Interrupts. 






.ipt 


1 .hangup 


NMI: never expected. 






.ipt 


2, hangup 


UPI READ READY: never expected. 






.ipt 


7, hangup 


EI: never expected. 




chlidta 
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Id 


A,bstat 


Test state of buffer. 






and 


A,«x'09 


Check PASS and CPUBUSY bits. 






Ifeg 


A,«X'01 


If PASS and not CPUBUSY, 






Jsrl 


snddta 


then go send a block of data to CPU. 




chkalt 




Ifeq alert .w,»x'00 ; Check for alert conditions. 






Jupl 


chkrsp 


If none, go check for response ready. 






ifbit 


arte, alert, b 


Check for RTC interrupt request. 






Jsrl 


sndrtc 


If so, then send Real-Time Clock Interrrupt. 






Ifbit 


aprlne, alert. b 


Check for Centronics Input Prime signal. 






Jsrl 


sndprm 


If so, send Input Prine interrupt. 






Ifblt 


alcdak, alert. b 


; Check for LCD Panel write done. 






Jsrl 


sndlak 


• If so, then send LCD Acknowledge interrupt. 






Ifbit 


aflush, alert. b 


; Check for Flush Buffer request. 






Jsrl 


sndfsh 


• If so, then send data in buffer to CPU. 






Ifblt 


abutton.alerth.b 


; Check for a pushbutton change. 






jsrl 


sndbtn 


; If so, then report the change to the CPU. 






ifbit 


austat.alerth.b 


; Check for a UART status change. 






jsrl 


sndust 


; If so, then report the change to the CPU. 






Ifblt 


aerr.alerth.b 


; Check for a data error condition. 






Jp 


cherr 








JP 


nocher 






cherr: 


ifbit 


cpubsy ,bstat 


; Suppress if CPU busy. (CPU needs to 






Jp 


nocher 


; receive flushed characters first.) 






ifgt 


fshli»,«0 








Jsrl 


sndfsh 


; If a flush is still needed, then do It first. 






Jsrl 


snderr 


; If so, then report the error to the CPU. 




nocher 






; (This line deliberately eapty.) 






ifbit 


auack.alerth.b 


; Check for UART output done. 






Jsrl 


snduak 


; If so, then send UART-ACKNOWLEDGE Interrupt. 






ifbit 


adiag.alerth.b 


; Check for Diagnostic Interrupt. 






jsrl 


sndiag 


; If so, then send interrupt and data. 




chkrsp 


: 


Japl chkdta 


; Mo "responses" defined yet; Just close loop. 






. fori 


•Main! Send Real-Ti«e Clock Interrupt' 




; No data transfer; Just trigger interrupt and continue. 




sndrtc 












rbit 


arte, alert. b 


; Clear ALERT bit. 






Jsrl 


rdwait 


; Check that UPI Interface is ready. 
; If not, loop until it is. 






Id 


obuf ,«vrtc 


; Load Real-Tine Clock vector into OBUF for CPU. 






ret 




; Return to naln loop. 
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; No data transfer; Just trigger interrupt and continue. 




sndlak: 






rbit 


alcdak, alert. b ; Clear ALERT bit. 




Jsrl 


rdwait ; Check that UPI interface Is ready. 
; If not, loop until it is. 




Id 


obuf.ltvlcdak ; Load LCD-Acknowledge vector into OBUF for CPU. 




ret 


; Return to main loop. 




.form 


'Main: Send Pushbutton Status to CPU' 




sndbtn: 






jsrl 


rdwait ; Check that UPI Interface is ready. 
; If not, loop until it is. 




Id 


obuf ,«vbutton ; Load BUTTON-DATA vector into OBUF for CPU. 




Jsrl 


rdwait ; Check that UPI interface is ready. 
; If not, loop until it is. 




rbit 


gie,enlr ; *** Begin Indivisible Sequence ♦** 




Id 


obuf,swlsnt ; Load Pushbutton Data Byte into OBUF for CPU. 




rbit 


abutton,alerth.b ; Clear ALERT bit. 




sblt 


gie,enir ; *** End Indivisible Sequence ♦** 




ret 


; Return to Bain loop. 




. fora 


'Main: Send Data fron Data Buffer to CPU' 




; Trashes A, B 


, K (limit), and C flag. May trash X in future. 




; Buff 


er Flush request serviced here. 




sndfsh: 






rbit 


aflush, alert. b ; Reset Flush request. 




Ifeq 


nuBchr,«0 ; If no characters to send, Just return. 




ret 


; else go to Send Data routine. 




J»pl 


snddta 




; Autoiatic Pass condition serviced here. 




snddta: 






ifbit 


aerr,alerth.b ; Check for a coanunlcation or buffer error. 




JP 


chkfla ; If so, there is a limit on the number of 
; characters to send. Investigate further. 




JP 


snddl ; Else, go ahead and perfora automatic pass. 




chkflu: 


ifeq f3hli»,«0 ; Here, a flush limit is in effect due to an 




ret 


; error condition. Check that the limit is 
; non-zero before initiating the pass. If 
; zero, then simply return without passing. 




snddl: Jsrl 


rdwait ; Check that UPI interface Is ready. 
; If not, loop until it is. 




Id 


obuf,«vdata ; Load DATA vector into OBUF for CPU. 




jsrl 


rdwait ; Check that UPI interface is ready 

; (CPU has acknowledged DATA interrupt). 
; If not, loop until it is. 
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rbit 


gle,enlr ; Indivisible operation: disable Interrupts 








Boaentarlly . 




Sbit 


passng.bstat ; Indicate data being passed to CPU. 




Id 


nuaout,nuachr ; Saaple number of characters in buffer. 








This becoaes the number of characters to 








transfer. 




ifbit 


aerr.alerth.b 


unless there is a flush liait in effect, 




Id 


nuBout, fshlim 


in which case that Halt is used. 




Id 


fshliB,«0 ; Any flush Halt Is set to zero at this point, 








disabling any data passing until the error 








condition is reported. 








(This does not need to be conditional.) 




sbit 


gie.enir ; End indivisible operation: re-enable 








interrupts. 




Id 


obuf.nuBout ; Give nuBber of characters to CPU. 




Id 


cntout,nuBout ; Copy nuBber of characters to teaporary 








count location. 




Id 


B,cadout ; 


[nitiallze for loop below. 




Id 


K,»topad ; 


Establish buffer linlt. 




snddlp: 


; Loop to send characters froa data buffer to CPU 




Ids 


A,[Bi).b ; 


joad from next byte in buffer, and increaent 
address pointer in B. 




JP 


sndd4 ; 


If skip occurs (Increaented past end 




Id 


B,«botad ; 


of buffer), reset pointer to top of buffer. 




sndd4: Jsri 


rdwait ; 


:heck that UPI interface is ready, 
tf not, loop until it is. 




St 


A.obuf ; 


31ve character to CPU. 




decsz 


cntout ; 


:heck if last character. 




JP 


snddlp ; 


No: Loop. 

Yes: Update pointers and buffer status. 




Id 


cadout,B.b ; 


Update current pointer address in memory. 




rbit 


gie.enir ; 


«** Begin Indivisible Sequence. •»* 




and 


bstat,«x'FC ; 


:iear PASS and PASSIBG flags. 




rbit 


pass+4,lcvs ; 


(DEBUG: Update PASS in LCD Contrast latch.) 




Id 


portah,lcvs 






sblt 


Icvcltt.portbh 






rbit 


lcvcll[,portbh 






sc 




(Set carry for subtraction.) 




subc 


nuachr,nuBout ; 


Adjust nuBber of characters in buffer to 
reflect those just reaoved. 




id 


A,t»bufslz ; 


Ztiect whether the buffer is any longer 




Ifgt 


A.nuBChr ; 


coapletely full. 




rbit 


full.bstat 


do: reaove FULL indication (if set). 




ifgt 


A.nuachr ; 


(DEBUG: update FULL for LCV latch.) 




rbit 


7,lcvs 






ifbit 


stop,bstat ; 


Check whether host was stopped. 




Jp 


sdstp 


Yes: continue. 




J«pl 


sdend ; 


Do: terainate indivisible sequence and 
return to aaln loop. 




sdstp: ifgt 


stpcnt ,nuBChr ; 


Check whether nuaber of characters is 
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now less than "Stop" value to host. 






JP 


sdstpl 








J«"Pl 


sdend 


If not, then return to «aln loop. 




sdstpl 




rbit stop.bstat ; Clear "Stop Host" flag. 






rbit 


5,lcvs 


Check which port to enable for aore data. 






Ifblt 


usel,ups 


Check if UART is selected. 






J»pl 


sdusts 


If so, go set up flow control. 






ifblt 


enpri.cps 


Check if Centronics port is selected. 






j«pl 


sdcsts 


If 30, go set up Centronics BUSY. 






J»pl 


sdend 


Otherwise, do nothing more and return. 




sdcsts 




ifblt clin«d,ackid ; Check If In Centronics Line Mode. If 


so. 




J»P1 


sdend 


the CPU itself aust coaaand the ACK action. 






Id 


A.bstat 


Test whether data coaaunlcation with 
host should be allowed to continue. 






and 


A,«X'3C 


Bits involved are STOP, CPUBSY, IFCBSY and 
FULL. 






ifeq 


A,«X'00 


If no stop conditions are in effect. 






rbit 


cbusy,cps 


clear the BUSY Indication in CPS 
(Centronics Port Status) byte in meaory. 






Ifblt 


i4,ircd 


If not between the two interrupt services 
of a Centronics strobe, then 






Jsrl 


setcen 


call Centronics port control setup routine, 
to generate ACK/ pulse and clear BUSY, 
(If this sequence does occur between the 
• leading and trailing edge interrupts for 

STROBE/, then the trailing edge routine 
, will pulse ACK/ when it is allowed to run.) 






Jupl 


sdend 






sdusts 




rbit cus.ups 


; Set UART not busy. 






Jsrl 


dtron 


■ Set DTR handshake appropriately. 






Ifblt 


eti.enui 


; Check if a UART transaitter interrupt will 
; be occurring. 






J«pl 


sdend 


; If so, then no further action is required. 






ifblt 


xonb.uflow 


; Otherwise, if XOM protocol is In effect, 






jsrl 


setuar 


; then check and perform flow control. 






J«pl 


sdend 


; Then exit to main program. 




sdend: 












Id 


portah, Icvs 


; (DEBUG: Update LCV latch.) 






sblt 


Icvclk.portbh 








rbit 


Icvclk.portbh 








sblt 


gie.enlr 


; »** End Indivisible Sequence. *«» 






ret 




; Return to main program loop. 






.fora 


'Main: Send Inp 


at Priae interrupt to CPU' 




sndprm 


J 




; Send INPUT PRIME interrupt to CPU. 






rbit 


aprine, alert. b 


; Clear ALERT bit. 






Jsrl 


rdwait 


; Check that UPI interface is ready. 
; If not, loop until it is. 






Id 


obuf ,ttvprlae 


; Load PRIME vector into OBUF for CPU. 






ret 




; Return to nain program loop. 
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■forn 'Main: Report a UART DSR changa or END OF BREAK' 



sndust: 



Jsrl 

Id 
jsrl 



rbit 

rblt 

Id 

rblt 

sblt 

ret 

. fori 



Check that DPI interface Is ready. 
If not, loop until it is. 

Load UART-STATUS vector into OBUF for CPU. 

Check that UPI interface is ready. 
If not, loop until it is. 



snderr: 



rdwait 

obuf ,4vustat 
rdwait 

gie,enlr ; * INDIVISIBLE SEQUENCE * 

austat.alerth.b ; Clear ALERT bit. 

obuf,ustat ; Load UART Status Byte into OBUF for CPU. 

brkflg,ustat ; Clear END OF BREAK indication, 

gle.enir ; * END INDIVISIBLE SEQUENCE * 

; Return to aaln loop. 

'Main: Report a Data Error Condition to CPU' 

; Send DATA-ERB interrupt to CPU. 
Clear ALERT bit. 

Check that UPI interface is ready. 
If not, wait until it is. 

Load DATA-ERR vector into OBUF for CPU. 
Check that UPI Interface is ready. 
If not, wait until it is. 

Give CPU the offending character. 
Check that UPI interface is ready. 
If not, wait until it is. 

Give CPU the error flags. 
Return to aain progran loop. 

.fori 'Main: Send UART Acknowledge Interrupt to CPU' 

snduak: ; Send ACK-UART interrupt to CPU. 

rblt auack.alerth.b ; Clear ALERT bit. 

Jsrl rdwait ; Check that UPI interface is ready. 

; If not, loop until it is. 

Id obuf,«vuack ; Load ACK-UART vector into OBUF for CPU. 
ret ; Return to main program loop. 



.for* 'Main: Send Diagnostic Interrupt to CPU' 



rblt 


aerr,alerth.b 


jsrl 


rdwait 


Id 


obuf ,Sverr 


jsrl 


rdwait 


Id 


obuf ,errchr 


Jsrl 


rdwait 


Id 


obuf ,errfgs 


ret 





sndiag: 



Jsrl 


rdwait 


Id 


obuf ,ttvdlag 


Jsrl 


rdwait 


rblt 


gie.enlr 


Id 


obuf .dsevc 


Id 


dsevc,#0 


Id 


A,derrc 


Id 


derrc,»0 


rblt 


adlag,alerth 


sblt 


gle,enir 



Walt for UPI interface ready. 

Load vector into OBUF for CPU. 

Wait for UPI interface ready. 

*** Begin Indivisible Sequence *** 

Transfer Severity Code. 

Clear it. 

Get Error Code. 

Clear it. 

Clear ALERT bit. 

*** End Indivisible Sequence *** 
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Jsrl 


rdwait 


; Wait for UPI interface ready. 






St 


A.obuf 


; Transfer Error Code. 






Jsrl 


rdvalt 


; Wait for UPI interface ready. 








; Reialnlng bytes will have meaning only for 








; connand errors. 






Id 


obuf ,dbyte 


; Transfer Byte Received. 






jsrl 


rdwait 


; Wait for UPI interface ready. 






Id 


obuf ,dcc«d 


; Transfer Current Command. 






jsrl 


rdwait 


; Wait for UPI interface ready. 






Id 


obuf ,dgual 


; Transfer Command Count. 






ret 




; Return to main program loop. 






.for« 


'UPI (13) Interrupti Data from CPU' 






.ipt 


3, upiwr 


; Declare upiwr as vector for Interrupt 3. 




upiwr: 






; Write Strobe received from CPU. 






push 


A 


; Save Context 






push 


psw 








Id 


upicsv.b.upic 


; Save UPIC register image for LAO bit test. 






Ifbit 


cadeap,curcad 


; If expecting first byte of a command. 






J«pl 


firstc 


; then go process It as such. 






Id 


A,lbuf 


; If not, input it for entry into cpubuf. 






ifeg 


A,«x'A5 


; Check for RESET command. 






JP 


Icrst 








Ifbit 


laO.upicsv.b 


; Check for command argument written to proper 
; address. 






JP 


Icord 


; If so, go process as a normal argument. 






Jsrl 


hangup 


; If not, process as a FATAL error, generating 
; !DIAG interrupt. 




Icrst : 


Ifblt 

Jp 


laO,upic 

Icord 


; Continue checking for a RESET command. 






JBPI 


xreset 


; If so, go reset the HPC. 




Icord: 


X 

inc 

decsz 


A, [cpuad] .b 

cpuad 

numexp 


; If not, place it in next available cpubuf 
; entry. 






Jupl 


upwret 


; If not final byte of command, then return. 




lastc: 


Id 


A.curcBd 


; Else, process current command. 






Ifblt 


getcnt.A.b 


; Check if extended collection Is being made. 






JP 


lastcl 


; If not, then: 






sblt 


cade*p,curcBd 


Set command slot available again. 






Id 


cpuad, tfcpubuf 


; Reset CPU buffer pointer to beginning. 




lastcl 


. 


and A,«x'lF ; Mask off flag bits. 






shl 


A 


; Scale by two, and then 






.odd 










Jldw 




; Jump based on command value. 






.ptv 


lclnit,lcselc. 


lcselu,lllc 






.ptw 


illc,illc,illc 


,111c ; (All these are one-byte couBands.) 






.ptw 


Icscst.lcslcv, 


lcslcd,lcsled 






.ptw 


illc,lcsndu,lllc,illc 






.ptw 


lllc.illc 
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; Process 


INITIALIZE Command. 




Icinit 




Id rtevs,«x 


01 ; Enable only Real-Time Clock interrupts, but 






Ifeq 


cpubuf .b,1tO 


disable then again If 






rblt 


rtcenb.rtevs 


ttie command argument Is zero. 






Id 


rtcivl ,cpubuf .b 


Put argument into Real-Time 
Clock Interval. 






Id 


rtccnt ,cpubuf .b 


Put argument Into Real-Time 
Clock count. 






sblt 


title, tandl 


Enable Timer Tl interrupt, if not already 
enabled. 






rblt 


tlstp.taadl 


Start timer, if not already running. 






jsrl 


Iclbuf 


Initialize buffer parameters. 






Id 


alert. v,«0 


Set no events pending. 






Id 


ackDd,«l 


BUSY will fall during ACK/ pulse. 






Id 


errchr,«65 


Arbitrary fill for error character. 






Id 


errfgs.SO 


Clear error detail flags. 






Id 


svlast.tto 


Set up initial switch values. 






Id 


svlsnt.SO 


(Both current and last sent) 
Reset Centronics port: Busy 




Incent 




Id cp3,«x'2! 


> ; Initialize Centronics port status byte 
in memory. (Busy, and PRIHE interrupt 
disabled; otherwise normal. ) 






jsrl 


setcen 


Send to Centronics Control Latch. 
Reset UART port: Busy 




inuart 


: 


and enul,«x'FC ; Disable UART by clearing enables on 










UART-generated Interrupts (except EXUI/, 










which is connected to INPUT PRIME/.) 






Id 


ups.Sx' 03 


Flag UART as busy and not selected. 






Id 


A.rbuf 


Clear out spurious characters. 






Id 


A.enur 


Clear out spurious error flags. 






J»pl 


upwret 


Return. 




Iclbuf 


: 


; CaUe< 


Internal subroutine to initialize buffer status. 
1 also from SELECT commands. 






Id 


nuachr.ttO 


Clear count of characters received. 






Id 


cadln,«botad 


Next character in from comm port goes to 
first byte of buffer. 






Id 


cadout.ttbotad 


Next port data character out (to CPU) 
comes from first byte of buffer. 






Id 


nu»out,#0 


No characters being sent to CPU. 






Id 


cntout,#0 


No characters being sent to CPU. 






Id 


bstat,«0 


Set buffer ready to receive. 






and 


lcvs,«x'OF 


(DEBUG: Initialize LCV latch high bits.) 






Id 


portah.lcvs 








sblt 


Icvclk.portbh 








rblt 


Icvclk.portbh 








ret 


; Proces 


Return. 
3 SELECT-CENT command. 




Icselc 




and enul,ttx'l 


■C ; Disable UART by clearing enables on 
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UART-generated interrupts (except EXUI/, 








* 


which Is connected to INPUT PRIME/.) 




rblt 


usel ,ups 


* 


Flag UART not selected. 




Ifbit 


fleap.uf lov 


; 


If valid UART BOde exists. 




JP 


Icsecl 








Jsri 


dtroff 


■ 


use It to set DTH to "not ready" state. 




Icsecl: 


Id ackBd,cpubuf .b ; Accept ACK/ mode from coBmand buffer. 




Id 


pascnt ,cpubuf -tl 


b 


; Put "Buffer Pass" value Into 
; the PASCHT slot. 




Id 


stpcnt ,cpubuf ^2 


b 


; Put "Host Stop" value Into 
; the STPCNT slot. 




jsrl 


Iclbuf 


: 


Initialize buffer paraBeters. 




prinlp: 


ifblt uart.irpd 


; Check to see if INPUT PRIME/ interrupt 


Is 


JP 


prlBlp 




still asserted. If so, wait here. 




sblt 


i4,ircd 




Set up STROBE detector to see leading edge. 




Id 


lrpd,«x'EF 




Clear any spurious Interrupt triggered by 
polarity change. 




sblt 


i4,enlr 




Enable interrupts on 14 (STROBE). 




3bit 


uart ,enir 




Enable IMPUT PRIME/ Interrupt (through 
UART vector). 




Id 


cp3,)tx'A9 




Set Centronics interface byte not busy, 
selected, and all status bits nornal. 




jsrl 


setcen 




Clears BUSY signal and generates ACK/ pulse 
according to current mode in ACKMD. 




J«pl 


upwret 




Return. 






; Process 


SELECT-UART conmand. 




Icselu: 


Id A,dlvby 


b 


; Process UART baud selection. 




and 


A.itx'OF 




Strip out old baud rate selector. 




St 


A,cpubuf+7.b 




Save (in unused area of the coaiand buffer), 
and start processing new value. 




Ifgt 


cpubuf.b,ttx'08 




Check if out of range. 




Jsrl 


hangup 








Id 


A,«10 








sc 










subc 


A.cpubuf .b 




Convert to DIVBY field forBat. 




svap 


A 




Place value in correct field. 




or 


A.cpubuf +7.b 




OR with Microwlre rate field. 




St 


A,divby.b 




Place back In DIVBY register. 




Id 


ufraBe.cpubuf-^l 


b 


; Get requested frame format. 




and 


ufraie,«x'07 


; 


Discard unused bits. 




sblt 


b8or9,enu 


; 


Set 9-bit Bode for 8-bit data plus parity. 




Ifgt 


ufraBe,ttl 


; 


If 7-blt plus parity, or 8-bit without parity. 




rblt 


b8or9,enu 


: 


then change this setting to 8-blt node. 




rblt 


b2stp,enul 


; 


Initialize to one Stop bit. 




Ifeq 


ufraae.tta 


; 


Test for nunber of Stop bits requested. 




sblt 


bZstp.enui 


; 


and set up UART hardware accordingly. 




Ifgt 


ufraiie,«5 








sblt 


b2stp,enul 








Id 


A.cpubuf+Z.b 


; 


Set up handshaking node. This also clears 




and 


A,«x'OF 


J 


the FLEMP bit auto«atlcally . 




St 


A,uflow 
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Id 


pascnt ,cpubuf-t3.t 




Put "Buffer Pass" value Into 
the PASCHT slot. 




Id 


stpcnt ,cpubuf +4.b 


Put "Host Stop" value into 










the STPCMT slot. 




Jsrl 


Iclbuf 


Initialize buffer parameters. 




Id 


cps,)tx'25 


Set up Port A to disable and de-select 
Centronics port, and disable 
IMPUT PRIME interrupt. 




rblt 


cllnad.acknd 


Clear the Centronics Line Node bit. 




jsrl 


setcen 


Send to Centronics latch and to Busy flag. 




rblt 


I4,enir 


Disable Centronics STROBE Interrupt. 




Id 


A,rbuf 


Clear any pending character before selection. 




Id 


A,enur 


Clear any error indications before selection. 




sblt 


erl,enul 


Enable receiver interrupt. 




rblt 


etl,enui 


Disable transnltter Interrupt. 




Id 


ups,flx'80 


Set UART port selected, not busy, and 
no characters being sent or waiting to be 
sent. 




Id 


ustat.ttx'Ol 


Set DSR ready(wlll trigger interrupt If not). 




sblt 


uart ,enir 


Enable DART interrupt. 




ifbit 


dtrbO.uflow 


Initialize DTR pin according to new node. 




JP 


Icslul 






rblt 


dtr,portbl 






Jp 


IcsluZ 




Icslul 




sblt dtr,portbl 


lcslu2 


; 








Jmpl 


upwret 


Return. 






; Proces 


3 SET-CEHT-STS Comiiand. 


Icscst 




Id cps,cpub 


jf.b ; Load Centronics Port Status from byte 
provided by CPU. 




Jsrl 


setcen 


; Perfom ACK/ if new status calls for it. 




J«pl 


upwret 








; Proces 


3 SET-CONTRAST Comnand. 


Icslcv 


: 


Id A,cpubuf 


b ; Load LCD Voltage latch (Contrast) fro« byte 
; supplied by CPU. 




comp 


A 


■ (3-blt value is in complemented form.) 




and 


A,«X'07 


; Use only lower three bits. 




and 


lcvs,«x'F8 


Clear field in memory Image. 




or 


Icvs.A.b 


; Merge new field into image. 




Id 


portah,lcvs 


■ Place on Port A (input to latch). 




sblt 


lcvcl)t,portbh 


; Clock latch. 




rblt 


Icvclk.portbh 






J«pl 


upwret 








; Proces 


s SEND-LCD Command. 


Icslcd 


: 


Ifblt getcnt,c 


arcmd ; Check for first or second collection 




jupl 


Icslcl 


; phase. 
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IcslcZ: 






; Second phase: begins execution of the LCI 




; 


connand. 


Id 


Icdbuf .w,cpubuf . V 




; Copy CPU buffer to LCD string buffer. 


Id 


Icdbuf +2.w,cpubuf 


+ 2.W 




Id 


lcdbuft4.w,cpubuf 


+ 4.W 




Id 


Icdbuf +6.w,cpubuf 4 6.W 




Id 


Icdsct.lcdnuB 




; Move nuBber of characters to string 
; count byte 


Inc 


Icdsct 




; (IncreBented by one because of 
; extra interrupt occurring after 
last character has been sent). 


Id 


lcdslx,«lcdbuf 




; Set string pointer to first byte. 


Id 


icdsfg.lcdfgs 




; Move flag bits to string location. 


Id 


r6,«x'FFFF 




; Set up R6 and T6 to trigger string 


Id 


t6,«0 




; transfer. 


sblt 


t6tle,pw«dh 




; Enable tlser T6 interrupt. 


rbit 


tSstp.pwnidh 




; Start tiaer to trigger (iBBedlate) 
interrupt froB tlBer T6. 


j»pl 


upwret 






Icslcl; 






; First phase: Prepare to collect up to 8 




; 


Bore 


bytes of conaand. 


Id 


Icdfgs.cpubuf .b 




; Get flag bits supplied by CPU. 


Id 


lcdnuii,cpubuf tl.t 




; Get character count fro» CPU. 


Id 


nu«exp,lcdnuB 




; Request another collection of 

; data froB the CPU (the string of 

; data for the panel ) . 


Id 


cpuad,ttcpubuf 




; Reset CPU collection pointer to start 
; of COBBand buffer. 


rblt 


getcnt,curcmd 




; Declare that it will be the final 
; collection. 


J»pl 


upwret 








; Process 


SEND-LED COBBand. 


Icsled: 


Id A,cpubuf 


b 


; Load LED latch froB byte supplied by CPU. 


coap 


A 


(Data 


goes to LED's in compleBented fora.) 


St 


A,portah 


Place 


new value on Port A (input to latch). 


sblt 


ledclk.portbb 


Clock 


latch. 


rblt 


ledclk.portbh 






J»pl 


upvret 








; Proces! 


SEND-UART CoBBand. 


Icsndu: 








Id 


uschr.cpubuf .b ; 


Queue this character, 


sbit 


scbr.ups 


; and 


request transaission at next 






; trar 


SBltter interrupt. 


Ifblt 


eti,enul 


ChecJ 


to see if another character is 


J»pl 


upwret 


already being sent (transmitter Interrupt 
enabled) . 


jsrl 


setuar 


If not, then call flow control routine to 
send it. 


J«pl 


upwret 


Return. 
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.for* 'Processing of First Byte of Comand (Code)' 



One-byte coamands are processed In this section. 
Longer coanands are scheduled for collection of 

reaainlng bytes, and are processed in routines 

above . 



f Irstc: 



ifbit 
Jsrl 



Id A.ibuf 
laO,uplcsv.b 

hangup 



; Get command from UPI port. 
Check for out-of-sequence condition 

(argument instead of command). 
If so, process as a FATAL error (previous 

command was too short). 



ifeg 


A,«X'A5 


JP 


xreset 


JP 


fcord 



; Processing of RESET command. 

; Check for RESET command. 



xreset: 




Id 


obuf ,«vdiag 


Jsrl 


rdvalt 


Id 


A,»0 


st 


A.upic.b 


St 


A.ibuf .tf 


St 


A.dlrb.w 


St 


A,bfun.* 


St 


A,lrcd.b 


St 


A,portp.w 


St 


A.sp.w 


St 


A,psv.w 


ret 





fcord: 



and 
ifgt 
J»pl 
st 

sbl 

.odd 
Jldw 

.pt¥ 

.ptw 

.pt¥ 

.ptw 
.ptw 



fclnit; 



J"Pl 



fcselc: 



A.Kx'lF 
A,«X'll 
illc 
A.curcmd 



; This code Is entered whenever a RESET 
; command is received. 

; Present dummy value for CPU, 
; (in case a value was already in OBUF), 
; and wait for It to be read by CPU. 

; Initialize registers. 

; (Actually all of DIRA.) 

; Then, through RESET vector, 
; Jump to start of program. 
Here, process an ordinary coniaand (not RESET). 



Use only least-significant 5 bits. 
Check for command out of range. 

Save as current command. 



A ; Scale by two, and then 

; Jump based on command value, 
fclnit, fcselc, fcselu, illc 
f cf Ish , f ccbsy , f ccnby , f elf by 
fcscst,fcslcv,fc3lca,fcsled 
fcbeep,fcsndu, fcusts,lllc 
Illc, illc 

Id nu«exp,«l ; First byte of INITIALIZE conBand. 

; Expects 1 more byte (RTC interval), 
upwret ; Return. 



Id 



numexp,tt3 



First byte of SELECT-CEHTRONICS command. 
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Expects 3 more bytes (ACK-Mode, Pass-Count, 












Stop-Count). 






J«pl 


upwret 




Return. 




fcselu 




Id nuaexp 


«5 ; First byte of SELECT-UART command. 












Expects 5 more bytes (baud, frame, 












handshalte, Pass-Count, Stop-Count) 






Jmpl 


upwret 




Return. 








; Processing of one-byte FLUSH-BUF command. 




fcflsh 




sblt aflush 


alert. b ; Set flush request bit In ALERT byte. 






sblt 


cBdemp.curcmd 


; Set command byte empty (end of coBmand) . 






Japl 


upwret 










; Processing of one-byte CPU-BUSY command. 




fccbsy 




sblt cpubsy 


bstat ; Set CPU Busy bit in BSTAT byte. 






sbit 


6,lcvs 


; (DEBUG: set also CPU Busy bit in LCV latch.) 






Id 


portah,lcvs 








sblt 


Icvclk.portbh 








rbit 


lcvclk,portbh 








sblt 


cmdemp.curcmd 


; Set command byte empty (end of command). 






J»pl 


upwret 










; Processing of one-byte CPU-HOT-BUSY command. 




fccnby 




rbit cpubsy 


bstat ; Reset CPU Busy bit In BSTAT byte. 






rbit 


6,lcvs 


; (DEBUG: reset also CPU Busy bit in LCV latch.) 






Id 


portah,lcvs 








sblt 


lcvclk,portbh 








rbit 


lcvclk,portbh 








sbit 


cmdemp.curcmd 


; Set command byte empty (end of command). 






J»pl 


upwret 






fclfby 




; This 


; Processing of one-byte SET-IFC-BUSY command, 
command (one byte) sets the interface busy 








; Immediately, to stop characters from the external 








; sy 


stem. 






sbit 


cmdemp.curcmd 




Set command byte empty (end of command). 






Ifblt 


usel ,ups 




Check If UART is selected. 






JBPI 


fclbyu 




If so, go set up flow control. 






Ifbit 


enprm,cps 




Check If Centronics port is selected. 






jmpl 


fclbyc 




If so, go set up Centronics BUSY status. 






jsrl 


hangup 




Otherwise, error. Stop. 




fclbyu 






; Set UART port busy. 






sbit 


cus.ups 




Set UART input port status busy. 






jsrl 


dtroff 




■ Set DTR handshake appropriately. 






Ifblt 


etl,enul 




Check If UART transmitter busy. 






jp 


fclbyl 




If so, flow control will happen 
automatically. 






ifbit 


xonb.uf low 




If not, then if XON mode Is selected. 






jsrl 


setuar 




Invoke flow control routine. 




fclbyl 




Jmpl upwret 


; Set Centronics port busy. 




fclbyc 




sblt Ifcbsy 


bstat ; Set Interface Busy bit In BSTAT byte. 






sbit 


cbusy ,cps 


; Set BUSY bit in Centronics Port Status byte. 






Jsrl 


setcen 


; Change Centronics port control latch 
; accordingly. 






sbit 


cndemp,curcBd 


; Set command byte empty (end of command). 






jipl 


upwret 
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; First byte of SET-CENT-STS comnand. 


fcscst 




id 


nuBexp,Sl ; Set up to expect one Bore byte. 




j«pl 


upvret 


; First byte of SET-COMTRAST coaaand. 


fcslcv 




Id 


nuaexp.ttl ; Set up to expect one nore byte. 




J»pl 


upwret 


; First byte of SEND-LCD coBmand. 


fcalcd 




Id 


nuBexp,tt2 ; Set up to expect one Bore byte. 




sbit 


getcnt 


curcBd ; Bote extended collection node In Current 
; CoBBand byte. 




Japl 


upwret 


; First byte of SEND-LED coimand. 


fcsled 




Id 


nuBexp,«l ; Send to LED's; Set up to expect one sore byte. 




JBPI 


upwret 


; Process one-byte BEEP comiaand. 


fcbeep 




sblt 


CBdefflp,curcBd ; No arguments; set CURCHD byte empty. 




8bit 


t7tfn,portph ; Enable beep tone to panel speaker. 




sblt 


tOtle.tandl ; Enable Tlner TO Interrupt. 




Id 


beepct 


«19 ; InltlallEe duration count (approximately 

; 1 second, in units of Timer TO overflows). 




JBPI 


upvret 


; First byte of SEND-UART coBBand. 


fcsndu 




Id 


nuBCxp.ltl ; Send to UART: Set up to expect one more byte. 




J«P1 


upwret 


; Process one-byte TEST-UART command. 


fcusts 




sblt 


CBdemp.curcmd ; Ho argunents; set CURCMD byte empty. 




Sblt 


austat 


alerth.b ; Force UART Status interrupt. 




J»pl 


upwret 




111c: 


jsrl 


hangup 


; Process illegal command codes. 
; Return from UPI Write interrupt. 


upvret 






; Restore Context 




pop 


psv 






pop 


A 






reti 








.fori 


'Tl«er 


Interrupt Handler' 




.ipt 


5,tBrlnt ; Declare entry point for Ti«er Interrupt. 


tarlnt 




push 


A ; Save context. 




push 


B 


; 




push 


psw 


• 


tlpoU 




ifbit 


tlpnd,tBBdl ; Poll for TlBer Tl interrupt (Real-Time Clock). 




Jnpl 


tllnt 


; If set, go service it. 


t6poll 




ifbit 


t6pnd,pwBdh ; Poll for Timer T6 Interrupt (LCD Panel Timing 




j«pl 


teint 


; Interrupt). 
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tOpoll: 



ifblt t0pnd,t»iidl 



; Poll for Timer TO interrupt (Beep Duration). 





JP 


tOpdg 




JP 


tOnotp 


tOpdg: 


ifblt 


tOtle.tiBdl 




J»pl 


tOint 


tOnotp 






noint: 


jsrl 


hangup 




.fom 


'Tiner Tl Inter 


tllnt: 


sblt 


tlack,t»Bdl 




ifblt 


rtcenb,rtevs 




Jp 


tlintl 




jmpl 


kbdchk 


tlintl 




decsE rtccnt 




JBPI 


kbdchk 




Id 


rtccnt ,rtcivl 




ifblt 


arte, alert. b 




JP 


tlrerr 




sblt 


arte, alert. b 




JP 


kbdchk 


tlrerr 




sbit 0,dsevc 




sblt 


7,derrc 




sbit 


adiag,alerth.b 


kbdchk 








rblt 


astts.portbh 




Id 


A.portd 




sbit 


astts.portbh 




xor 


A.ttx'FF 




X 


A,3wlast 




Ifeq 


A,s«last 




JP 


kbintl 




J»pl 


dsrchk 



kbintl: 



j«pl 



Ifeq 



dsrchk 



A,svlsnt 



dsrchk 



dsrO: 



dsrl! 



St 


A.swlsnt 


sblt 


abutton.alsrth.b 


ifblt 


usel.ups 


JP 


dsrO 


J«pl 


taochk 


Ifblt 


dsrb.uflow 


JP 


dsrl 


J«pl 


brkchk 


Id 


A,«x'01 


ifblt 


dsr.portl 


rblt 


0,A 


St 


A,B 


ifblt 


dsrf lg,ustat 


xor 


A,«x'01 


ifblt 


0,A 


JP 


dsr2 



If set, check the Enable bit; TO is not 
always enabled to interrupt when it runs. 
If enable Is also set, then go service TO. 

; (This label is deliberately here.) 

; Error: no legal tlaer interrupt pending. 



Acknowledge Tl interrupt. 

Check if RTC interrupts are enabled. 

If not, then go check other events. 

; Decrement Interval value. 
If interval has not elapsed, then go check 

for other events. 
Reload counter value for next interval. 
Check if CPU has received previous interrupt 

request; report error if not. 
Set Real-Time Interrupt request to main 

prograB. 

; Signal HOTE severity. 
Signal «ultlple-RTC error. 
Request !DIAG Interrupt from main program. 

; Check keyboard switches. 
Enable pushbutton data to Port D. 
Sample pushbutton switches. 
Disable pushbutton data to Port D. 
Complement low-order 8 bits of A. 
Exchange with last sample. 
Check if the data is stable (same as last 
saaple) . 

If not, go check other events. 

; Check if the data differs from the last 
pattern sent to the CPU. 
If not, go check other events. 

Place new pattern in "last sent" location. 
; Request "BUTTON-DATA" interrupt to CPU. 

Check for status of DSR signal if mode selected. 
Check If UAHT Is selected. 

If not, skip both DSR and BREAK checking. 
Check if DSR input should be checked. 



Initialize Accumulator to check DSR. 
Check current state of DSR pin. 
Clear LSB of A if DSR pin set. 
Register B holds DSR state (1 = DSR Ready). 
Check last DSR state given to CPU. 
Toggle LSB of A if set. 
If LSB of A Is still set, then must send 
UART-STATUS interrupt to CPU. 
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jBpl 


brkchk ; 


Else, go check BREAK status. 




d3r2: 


rbit 

ifbit 

sbit 


dsrflg,ustat ; 

0,B.b 

dsrf Ig.ustat 


Report new state of DSR to CPU. 






sblt 


austat .alerth.b ; 


Request main program to generate lUART-STATUS. 






ifbit 


0,B.b ; 


How, enable or disable UART receiver based on 






JP 


dsron ; 


new DSR state. 




dsroff 




rbit eri,enul 


; If DSR is now Inactive, disable receiver 






Jnpl 


brkchk ; 


interrupts. 




dsron: 


id 


A.ups 


If DSR Is now active, check to see whether 






and 


A,«x'60 ; 


receiver may be re-enabled; Bust test 






ifgt 


A , «x ' 00 


for BREAK condition and Multiple Character 






J"pl 


brkchk ; 


Error condition, which disable the receiver 






sbit 


eri,enui ; 


until a SELECT-UART coniiand. If not 
permanently disabled then re-enable it here. 






Id 


A.rbuf ; 


Also remove any garbage characters and error 






Id 


A.enur ; 


indications seen while DSR was Inactive. 




brkchk 


Jp 


ifbit brkad.ups 
brkadl 


; Check whether BREAK has been detected. 






Japl 


tuochk ; 


Go check for other events if not. 




brkidl 




ifbit txd,portbl ; Check UART data input pin. 






jp 


brk»d2 ; 


If set, BREAK pulse is done. 






J»pl 


tuochk ; 


Otherwise, go check for other events. 




brl»d2 




rbit brkud.ups 


; Clear BREAK mode in UART Port Status byte. 






sblt 


brkflg.ustat ; 


Set END OF BREAK bit in UART status to CPU. 






sblt 


austat,alerth.b ; 


Request main program to generate lUAHT-STATUS. 




tiochk 


: 


; *** Insert other RTC events here. ♦»* 






jspl 


turret ; 


Return from Timer Tl interrupt. 






, form 


'Timer T6 Interrupt Service Routine' 

; Tiaer T6 interrupt routine: sends characters fro« 
; LCD String Buffer to the panel. 




t6int: 


sblt 


t6stp,pvadh ; 


Stop timer T6. 






sbit 


t6ack,p¥iidh ; 


Acknowledge T6 interrupt. 






decsz 


Icdsct ; 


Decrement LCD character count. 






j»pl 


tbnxtc ; 


If not done, go send another character. 






sblt 


alcdak, alert. b ; 


If done, request main program to send LCD 
Acknowledge interrupt to CPU. 






j»pl 


tarret 






tenxtc 


: 


Id A.lcdsfg 


; Get flags byte (for panel HS signal). 






shr 


A ; 


Shift right, LSB into carry. 






st 


A.lcdsfg ; 


Store shifted value back. 






sbit 


pnlrs,lcvs ; 


Determine proper state for RS signal from 






ifc 


; 


current character's flag (= flag inverted). 






rbit 


pnlrs,lcvs 








Id 


portah.lcvs ; 


Send new RS value to LCD Voltage (LCV) latch. 






sblt 


Icvclk.portbh 


Clock the latch. RS signal is now valid. 






rbit 


Icvclk.portbh 








Id 


A,[lcdsix].b ; 


Get next LCD character from string buffer. 






inc 


Icdsix ; 


Increment character pointer. 






COBp 


A ; 


Complement character, then 
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St 


A,portah ; place It on Port A for LCD display. 




rblt 


pnlclK,portbl ; Clock It Into panel. 




sblt 


pnlclk,portbl 




coup 


A ; Restore A to unconplemented form for 
; test perforned below. 




Id 


t6,«148 ; Set up normal delay time in timer T6 
; (120 nlcroseconds) . 




Ifgt 


A,«x'03 ; Check whether the longer delay 




JP 


t6nxt2 ; (4.9 Billiseconds) is necessary. 

; This happens if RS=0 and the byte sent to 




Ifnc 


; the panel is a value of hex 03 or less. 




Id 


t6, 116022 ; If so, change timer to 4.9 Billiseconds. 


t6nxt2 




rbit t6stp,pwBdh ; Start Tlaer T6 to time out the character. 




J«pl 


tarret ; Return fro» the Interrupt. 




.fori 


'Tlaer TO Interrupt Service Routine' 


tomt! 




; Count duration of beep tone. Restore beep signal 
; to zero and re-enable switch sampling interrupt 
; when done. 




sblt 


tOack.taadl ; Acknowledge Interrupt froa Tlaer TO. 




decsz 


beepct ; Check whether beep time has finished. 




Jupl 


tarret ; Mo: return froa Interrupt. 




rblt 


tOtie,taidl ; Yes: disable Timer TO Interrupts and 

continue. 




and 


portph,«x'OF ; Disable speaker output. 




J«pl 


tarret ; Return froa interrupt. 

; Coamon return for timer Interrupt service routines. 


turret 




pop psw ; Restore context. 




pop 


B 




pop 


A 




retl 






. for« 


'Centronics Port Interrupt Handler' 






Centronics Port Interrupt Handler 








(Pin 14 rising edge) 






note that cadln is an 8-blt quantity; buffer «ust be 








contiguous within the basepage area. 




.ipt 


4,cenint 


cenlnt 




push psw ; Save context. 




push 


A 




push 


B 




push 


K 

; Decide whether to process leading or trailing edge interrupt. 




Ifblt 


i4,ircd ; Check polarity of detector. 




J«pl 


cstrbl ; Leading edge (rising on 14 pin). 




Jnpl 


cstrbt ; Trailing edge (falling on 14 pin). 


cstrbl 




; STROBE/ leading edge service routine. 
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Id 


K,tttopad 


; Reg. K gets buffer top address. 




3blt 


astts.portbh 


; MaXe sure pushbutton buffer is off. 




rblt 


cdata.portbb 


; Enable Centronics data to Port D. 






; Test t 


hether there Is roo« for another byte 






; In the data buffer. 




ifblt 


full,bstat 


; If FULL bit set, 




jmpl 


cenerr 


; process this character as an error 
; (Buffer Overflow). 




Id 


B.cadln 


; Get current buffer Input address. 




Id 


A,portd 


; Get character. 




xs 


A,[B+].b 


; Store in table. 




JP 


cenO 


; If skip, 




Id 


B,«botad 


then wrap input pointer to beginning 




cenO: Id 


cadin.bl.b 


; of buffer; else Just Increnent it. 




cenl: inc 


nuBchr 


; Increnent number of characters. 




ifgt 


pascnt ,nuac)ir 


; Check if buffer full enough to send. 




J»pl 


can lex 


; No: end of service. 




sblt 


pass.bstat 


; Yes: Indicate buffer ready to pass. 




sblt 


4,lcvs 


; (DEBUG: report status In LCD Contrast latch.) 




Id 


portah.lcvs 






sblt 


lcvclk,portbh 






rblt 


lcvcllc,portbh 






Ifgt 


stpcnt .nuncbr 


; Check if buffer too full for aore 
host characters. 




Jupl 


cenlex 


; Mo: end of service. 




sblt 


cbusy.cps 


; Yes: set Centronics port status busy. 




sblt 


stop,bstat 


; set Buffer Status as "STOPPED". 




sblt 


5,lCV3 


; (DEBUG: report status in LCD Contrast latch.) 




Id 


portah,lcv3 






sblt 


lcvclk,portbh 






rblt 


Icvclk.portbh 






Ifeq 


nuBchr.ttbufsiz 


; Check If buffer conpletely full. 




sblt 


full,bstat 


; Yes; set condition. 




J«pl 


cenlex 


; Update Centronics latch and quit. 




cenerr; 




; Error handler: Invoked if BUSY flag falls to 


stop 




; host 


processor and the HPC's data buffer overflows 






; as a 


result. 




sblt 


cbusy.cps 


; Set busy indication In Centronics Port 

Status byte (to keep BUSY asserted to host 
; when EHCDATA/ signal is renoved later). 
; This should not be necessary except in case 
; of an internal error in this program. 




sblt 


7,lcvs 


; (DEBUG: report error In LCD Contrast latch.) 




Id 


portah.lcvs 






sblt 


Icvclk.portbh 






rblt 


Icvclk.portbh 






Ifblt 


aerr.alerth.b 


; If an error has already been posted. 




JP 


cenmer 


; handle as a aultlple error. 




j«pl 


cenler 


; Else, report single error. 
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cenmer 




sblt bufovf .errfgs ; OR in the buffer overflow condition. 






sblt 


errovf ,err 


fgs ; 


Update error conditions byte to also report 
an error overflow. 






rblt 


14,enlr 




Disable STROBE interrupt until re-initialized 
by CPU. 






J«pl 


cenlex 




Return fro» the interrupt. 




cenler 




sblt aerr,alerth.b ; Signal an error. 






Id 


errfgs,«x' 


10 


Report buffer overflow as reason. 






Id 


errchr,por 


td 


Place character in ERRCHR slot for report to 
CPU. 






Id 


fshlin.nuBchr 


Establish ilBlt on future flushes. 






jBpl 


cenlex 




Return fro« the interrupt. 




cenlex 








Exit froB Centronics STROBE/ leading edge. 






Id 


A.cps 




Prepare to keep BUSY active when ENCDATA/ 






sblt 


cbusy,A.b 




is renoved. 






St 


A.portah 




Send CPS byte (with BUSY set) to Centronics 
status latch. 






sblt 


cenclk.por 


tph 


(Pulse latch strobe.) 






rbit 


cenclk.por 


tph 








sblt 


cdata.portbh 


Reaove Centronics data enable; loads BUSY 












signal with a "1" . 






rblt 


i4,ircd 




Set 14 strobe pin to trigger on STROBE/ 
trailing edge. 






ifblt 


14,portl 




Check if strobe has already gone away. 






J«pl 


cenend 




If not, just return (no ACK/ pulse). 
The "cstrbt" routine will be activated then 
whenever STROBE/ goes away, by means of the 
14 interrupt. 






Jnpl 


cstrbt 




If so, there is a very sBall possibility 
that the interrupt request may have been 
lost due to It changing while the polarity 
bit in IRCD was being changed above. 
JuBp to trailing edge service routine 
directly froB here. 




cstrbt 








Centronics STROBE/ trailing edge. 






sblt 


i4,ircd 




Set up for leading edge detection again. 






Id 


lrpd,«x'EF 


Clear interrupt 14, in case the leading edge 












; routine case directly here. (No hardware 












clear of the request occurs In that case.) 






JBpl 


cenupd 




; Go update Centronics port, with ACK/ pulse 
If necessary. 




; 


Return 


froB interrupt. 








; With 


Centronics 


Port u 


pdate. 




cenupd 


! 


jsrl setcen 


; Update Centronics Control signals 












; froB CPS byte. 






; Without CentronJ 


cs Por 


t update. 




cenend 


pop 
pop 


pop K 

B 

A 




; Restore context from stack and return 
; Centronics Interrupt. 


from 
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pop 


PS¥ 








reti 




; Return from Centronics Interrupt. 






Subroutine SETCEM. 










Sets up 


Centronics Port 


control signals according to CPS byte. 








Generat 


Bs ACK signal {if 
Centronics tinin 


called for) according to current 
g sode (in ACKMD byte). 








Trashes 


AccuBulator. 






setcen 




rblt cdata.portbh ; Start with ENCDATA/ low, regardless 










; of previous state. 






ifblt 


cbusy ,cps 


; Check if BUSY flag should stay set. 






J«pl 


noack 


; If so. no ACK/ pulse. 






Id 


A.aclcBd 


; Get ACK/ mode. 






and 


A,«x'03 


; and extract the timing field. 






jld 




; Branch based on ACK/ tiBlng mode. 






■pt 


aab, aba, baa 






aab: 


Id 


portah,cps 


; BUSY low after ACK/ pulse. 






rbit 


cacK,portah 


; ACK/ falling edge. 






sbit 


cenclk.portph 


; Pulse CCTLCLK to load latch. 






rblt 


cenclk,portph 








sblt 


cack.portah 


; ACK/ rising edge. 






sblt 


cenclk.portph 


; Pulse CCTLCLK to load latch. 






rblt 


cenclli,portph 








sblt 


cdata.portbh 


; Load BUSY flag. 






ret 








aba: 


Id 


portah.cps 


; BUSY low during ACK/ pulse. 






rblt 


cack,portah 


; ACK/ falling edge. 






sblt 


cenclk.portph 


; Pulse CCTLCLK to load latch. 






rblt 


cenclk.portph 








sblt 


cdata.portbh 


; Load BUSY flag. 






sblt 


cack.portah 


; ACK/ rising edge. 






sbit 


cenclk.portph 


; Pulse CCTLCLK to load latch. 






rbit 


cenclk.portph 








ret 








baa: 


Id 


portah.cps 


; BUSY low before ACK/ pulse. 






sblt 


cdata.portbh 


; Load BUSY flag. 






rbit 


cack.portah 


; ACK/ falling edge. 






sbit 


cenclk.portph 


; Pulse CCTLCLK to load latch. 






rbit 


cenclk .portph 








sblt 


cack.portah 


; ACK/ rising edge. 






sbit 


cenclk.portph 


; Pulse CCTLCLK to load latch. 






rblt 


cenclk.portph 








ret 








noack: 


Id 


portah.cps 


; BUSY high: Set Centronics latch. 






sblt 


cenclk.portph 


; Pulse CCTLCLK to load latch. 






rbit 


cenclk.portph 








sbit 


cdata.portbh 


; Load Centronics BUSY signal (high). 






ret 










. f om 


'UART and Input 


Prine Interrupt Handler' 






.ipt 


6.uarlnt 


; UART Interrupt Vector 
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This Interrupt can Indicate any of three conditions: 








1) A character has been sent, and the transnltter 








Is again ready (label "uarout"). 








2) A character has been received (label "uartin"). 








3) A Centronics IHPUT PRIME event has been detected 








(label "uarpr«"). 




uarlnt 


: push psw 
push A 
push B 
push K 






push 


< 






ifblt 


jsel.ups 


Check If UART selected. 






J«pl uarchr 


If so, go process a character Interrupt. 






Ifblt 


3nprii,cps 


Check If PRIME interrupt enabled 






Japl uarprB 


from Centronics port. If so. 










this means that the Centronics port 










is selected, and it must be a PRIME 










event. 






jsri hangup 


Else, there Is an error. Stop. 




uarchr 




ifblt rbfl.enu ; Check for Receiver interrupt. 






Japl uartin ; 60 process Input character if so. 






Ifblt 


tbi«t,enu ; Check for Transaitter Interrupt. 






j«pl 


larout ; Go process output Interrupt If so. 






jsrl 


langup ; Else, there Is an error. Stop. 






.for« 


UART Output Routine' 




uarout 


! 


; Here, the interrupt is because a character has 
; been sent and the transmitter buffer is now empty. 


Just 




Ifblt 


lcpu,ups ; Check If the CPU needs to be Infomed. 






JBPI 


Jlcpu 






J»P1 


cinlcpu 




ulcpu: 


sblt 


auack,alerth.b 


Request nam program to interrupt CPU for 
UART acknowledge. 






rblt 


lcpu,ups 


Reset "Interrupt CPU" status on UART, 






JBPI 


inlcpu 


Continue processing of interrupt. 




unicpu 


; 


Ifblt xonb,uflow ; If XOM mode selected, 






Jsrl 


setuar 


check UART handshake status and take any 
appropriate action. 






Jupl 


larret 


Return. 






.fom 


UART Input Routine' 




uartin 




; UART data input routine. 






Id 


i,enur ; Get l«age of error flags and RBIT9. 






Id 


ilnchr,rbuf ; Get character. 






st 


4,enrlBg ; Save laage of ENUR for further processing. 
; Check for hardware-detected errors. 






and 


4,«x'C0 ; Mask for error bits (Overrun/Fraiing) . 






Id 


K,uinchr ; Prepare for parity check. 
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Id 


B,«evntbl 


Initialize B to point to Even Parity table. 




X 


A,uf rame 


Parity processing depends on selected 
franc for»at, so branch to proper 




J id 




parity processing routine. 




■pt 


ulodS , ulev8 , unopar , unopar 




•pt 


Ulod7,uiev7,ulod7,ulev7 

; Processing for 8-bit characters with parity. 


ulodS: 


Id 


B,ttoddtbl 


For odd processing, change parity table base. 


ulev8: 


X 


A,ufra»e 


Recover cumulative errors in accunulator. 




Ifbit 


fr«,A.b 


Check for BREAK condition: if framing error, 




JP 


uferS 






JP 


uSnbrk 




ufer8! 


Ifgt 


uinchr.SO 


and data field Is all zeroes, 




JP 


uSnbrk 






Ifblt 


rblt9,enri«g 


and 9th bit also zero, 




JP 


u8nbrk 






ifblt 


onebrk.ups 


then check if this is the second 




JP 


u82brk 


consecutive BREAK. 




sblt 


onebrk.ups 


If not, then flag only the framing error. 




JP 


iiSdopr 


and do not report break status yet. 


u82brk 




sblt brk.A.b 


; If so, then set Break bit in error image and 




rbit 


erl.enui 


disable DART receiver until re-selected. 




sblt 


brkad.ups 


Also show receiver disabled In UPS byte. 


uSnbrk 




rbit onebrk.ups 


uSdopr 




ifbit X,[B].b 


; Check parity of 8-blt character. Set "par" 




sblt 


par, A.b 


bit of Accumulator if It would be incorrect 
without parity bit. 




Ifblt 


rbit9,enrl»g 


Check parity bit for 8-blt character. Toggle 




xor 


A,«x'20 


■ parity error indication if set. 


ulnpok 




Ifeq A,ttx'00 


; Branch based on presence of error. 




J«pl 


ulngd 






J»pl 


ulnerc 








; Proces 


3ing for 7-blt characters with parity. 


ulod7: 


Id 


B,»oddtbl 


For odd processing, change parity table base. 


ulev7.' 


X 


A,uf rase 


Recover cumulative errors in accuBUlator. 




ifblt 


frn.A.b 


Check for BREAK condition: if framing error. 




Jp 


ufer7 






JP 


u7nbrk 




ufer7; 


ifgt 


uinchr,«0 


; and data field is all zeroes (incl. parity). 




JP 


u7nbrk 






ifblt 


onebrk.ups 






Jp 


u72brk 






sblt 


onebrk,ups 






Jp 


u7dopr 




u72brk 


: 


sblt brk.A.b 


; then set Break bit in error image and 




rbit 


erl,enul 


; disable receiver. 




sblt 


brk«d,ups 


; Also show receiver disabled in UPS byte. 


u7nbrk 


: 


rbit onebrk,u 


ps 


u7dopr 




rbit 7,uinchr 


; Seven-bit data: clear parity bit in memory. 




Ifblt 


X,tB).b 


; Perform bit-table lookup: 1 means error. 




JP 


uipe7 






J«pl 


ulnpok 




ulpe7; 


sblt 


par, A.b 


; Set parity error indication in A. 




J»pl 


ulnerc 








; For 8- 


t)lt character frames with no parity: 


unopar 




X A.ufrane 


; Restore frame value to UFRAHE, and continue 
; (no parity check in these modes). 
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Ifbit 


frm,A.b ; 


Check for BREAK condition; if framing error, 






JP 


uferr 








JP 


unbrk 






uferr: 


ifgt 
J»P 


ulnchr,#0 ; 
unbrk 


and data field is all zeroes (incl. parity), 






ifbit 


onebrk.ups ; 


then BREAK condition: if previous character 






J«P 


unZbrk 








sbit 


onebrk.ups ; 


was not a BREAK, then Just note this one. 






JP 


unobrk 






un2brk 




sbit brk,A.b 


; If it was, then set Break bit In error image 






rbit 


eri.enui ; 


and disable receiver. 






sblt 


brknd.ups ; 


Also show receiver disabled in UPS byte. 




unbrk: 


rbit 


onebrk.ups 






unobrk 




Jnpl uinpok 






uingd; 




; Here, a 
; proces 


good character was received. Start buffer 
sing. 






Id 


A.ulnchr 


Get character again. 






Id 


K,«topad ; 


Reg. K gets buffer top address. 








; Test whether there is roon for another byte 








; in the 


data buffer. 






ifbit 


full.bstat 


If FULL bit set. 






jBpl 


ulnerf ; 


process this character as an error 
(Buffer Overflow) . 






id 


B.cadin ; 


Get current buffer input address. 






xs 


A,(Bt].b ; 


Store character in table. 






Jp 


uinO 


If skip. 






Id 


B,»botad ; 


then wrap input pointer to beginning 




ulnO: 


Id 


cadln.bl.b 


of buffer; else just increment it. 




uinl: 


inc 


nuBchr ; 


Increment number of characters. 






ifgt 


pascnt.numchr ; 


Check If buffer full enough to send. 






Jmpl 


ulnex ; 


No: end of service. 






sblt 


pass.bstat ; 


Yes: indicate buffer ready to pass. 






sbit 


4,lcvs 


(DEBUG: report status in LCD Contrast latch.) 






id 


portah.lcvs 








sblt 


Icvclk.portbh 








rbit 


icvclk.portbh 








ifgt 


stpcnt .nuBchr 


Check if buffer too full for Bore 
host characters. 






Jupl 


ulnex 


No: end of service. 






sblt 


cus.ups ; 


Yes: set UART input port status busy. 






sbit 


stop.bstat ; 


set Buffer Status as "STOPPED". 






Jsrl 


dtroff ; 


set DTR handshake appropriately. 






ifbit 


eti.enui ; 


check if UART transmitter busy. 






Jp 


uin2 








ifbit 


xonb.uflov ; 


if not, then if XON mode selected, 






Jsrl 


setuar ; 


then Invoke flow control routine, 
(otherwise it will happen on next 

UART transmitter interrupt 

autoaatically) . 




uln2: 












sbit 


5,lcvs ; 


(DEBUG: report status in LCD Contrast latch.) 






Id 


portah.lcvs 








sbit 


Icvclk.portbh 
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rblt 


Icvclk.portbh 








lfe<3 


nu»cbr,«bufsle 


i Check if buffer conpletely full. 






abit 


full.batat 


; Yea: set condition. 






J«P1 


ulnex 






ulnerc 






; Character error handler. 






ifbit 


aerr,alerth.b 


; If an error has already been posted, 






JP 


uinace 


; handle as a multiple error. 






J"pl 


uinlce 


; Else, report single error. 




ulnace 




abit errovf. 


errfgs ; Update error conditions byte to also report 
; a lost error. 






or 


errfgs.A.b 


; OR in the errors fro« this character. 






sblt 


cus.ups 


; Yes; set UART Input port status busy. 






ifbit 


eti.enui 


; check if UART transmitter busy. 






JP 


ulnac2 








ifbit 


xonb.uf low 


; if not, then if XON mode selected, 






Jsrl 


setuar 


; then Invoke flow control routine. 
; (otherwise it will happen on next 
; UART transmitter interrupt 
; automatically). 




ulnmc2 




Jsrl dtroff 


; Remove DTR handshake If flow mode requires it. 






rbit 


erl.enui 


; Disable UART input interrupt until 
; re-initialized by CPU. 






sblt 


■cesd.ups 


; Also flag receiver disabled in UPS byte. 






J»pl 


uinex 


; Return from the interrupt. 




ulnlce 


. 










sblt 


aerr.alerth.b 


; Request CPU interrupt from main program. 






St 


A,errfgs 


; Report error flags from Accumulator. 






Id 


errchr.ulnchr 


; Report error character. 






Id 


fshlia.numchr 


; Establish limit on future flushes. 






japl 


uinex 


; Return from the interrupt. 




ulnerf 


: 




; FULL error handler: Invoked if HPC's data buffer 








; overflows. 






sbit 


7,lcvs 


; (DEBUG: report error in LCD Contrast latch.) 






Id 


portah.lcvs 








sbit 


Icvclk.portbh 








rblt 


lcvclk,portbh 








ifbit 


aerr.alerth.b 


; If an error has already been posted, 






JP 


ulnnef 


; handle as a multiple error. 






J«pl 


ulnlef 


; Else, report single error. 




ulnaef 




sbit bufovf 


errfgs ; Signal buffer overflow as another error. 






sblt 


errovf .errfgs 


; Update error conditions byte to also report 
; a lost error. 






sbit 


cus , ups 


; Set UART input port status busy. 






rbit 


luss.ups 


; (This is done to force flow control action.) 






ifbit 


eti.enui 


; Check if UART transmitter busy. 






JP 


uinne2 








ifbit 


xonb.uf low 


; If not. then if XOH mode selected, 






Jsrl 


setuar 


; then Invoke flow control routine. 
; (otherwise it will happen on next 
; UART transmitter Interrupt automatically). 




ulnaeZ 




jsrl dtroff 


; Remove DTR handshake if flow mode needs it. 
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rbit 

sblt 
J«pl 



erl.enul 

ncead.ups 
uinex 



Disable UART Input interrupt until 

re-lnltiallzed by CPU. 

Also flag receiver disabled in UPS byte. 
Return from the Interrupt. 



uinief : 



sblt 



aerr.alerth.b 



Id 
Id 

Id 

sblt 
rbit 
Ifblt 

JP 

Ifbit 

Jsrl 



ulnlf2: 



errfgs.ftx' 10 
errchr,uinchr 

fshlia.numcbr 

cus,ups 

luss.ups 

etl ,enul 

uinlfZ 

xonb.uflow 

setuar 



Signal an error. 



J»pl 



jsrl 
uinex 



dtroff 



Report buffer overflow as reason. 

Place character in ERRCHR slot for report to 

CPU. 
Establish limit on future flushes. 

Set UART input port status busy. 

(This is done to force flow control action.) 

Check If UART transmitter busy. 

If not, then if XON node selected, 
then invoke flow control routine, 
(otherwise it will happen on next 
UART transmitter interrupt automatically) . 

; Remove DTR handshake if flow mode needs it. 
Return from the interrupt. 



uinex: 



J">pl 



uarret 



Exit from UART input character processing. 
; Return. 



Parity Bit Lookup Table 



evntbl: 



oddtbl: 



.byte 

.byte 
.byte 



.byte X ' 96 , X • 69 , X ' 69 , X ' 96 , X ' 69 , X ' 96 , X ' 96 , X ' 6<J 
X ' 69 , X ' 96 , X ' 96 , X ' 69 , X ' 96 , X ' 69 , X ' 69 , X ' 96 

.byte X'69,X'96,X'96,X'69,X'96,X'69,X'69,X'g6 
X ' 96 , X ' 69 , X ' 69 , X ' 96 , X ' 69 , X • 96 , X ' 96 , X ■ 69 
X'96,X'69,X'69,X'96,X'69,X'96,X'96,X'69 



. byte X ' 69 , X ' 96 , X ' 96 , X ' 69 , X ■ 96 , X • 69 , X ■ 69 , X ' 96 



A one in the table means Incorrect parity for the mode, 
the mode being expressed as the base address (evntbl or oddtbl) 
.form 'Centronics INPUT PRIME' 



uarprm: 



uarret; 



; Centronics IHPUT PRIME service, 
sblt aprlme, alert. b ; Set PRIME bit in Alert mailbox to Main prog. 
Set BUSY bit in Centronics status byte. 
Go set up Centronics port itself. 
Disable Interrupt until it goes away. 
Return. 



Common return from UART Interrupt. 



sblt 


cbusy,cps 


jsrl 


setcen 


rbit 


uart,enlr 


J«pl 


uarret 




pop X 


pop 


K 


pop 


B 


pop 


A 


pop 


psw 


retl 





.form 'Subroutine to Walt for OBUF Empty' 

RDWAIT subroutine: waits until the CPU has read a byte from the 
; UPI interface. 

rdwait: libit rdrdy.upic ; Check to see if OBUF register Is full. 
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ret 










JP 


rdwait 








. fori 


'Write to Panel Subroutine' 










Write Panel subroutine. 










Used only at Initialization or to report a 










fatal protocol error, since It performs 










the tlaing delay using tliner T6 without interrupts. 










(Panel RS signal Bust be set up previously in the 










LCV latch by the calling routine.) 




wrpnl : 


coup 


A 




Coaplenent value for bus. 






St 


A.portah 




Put value on panel bus. 






rblt 


pnlclk.portbl 


Set Panel Clock low. 






sblt 


pnlclk,portbl 


then high again; 












pulse width approx. 












1.2 Bicrosec. 










Walt for another 










; 4.9 Billiseconds (twice). 






Id 


t6,«13000 ; Twice 4.9 Billiseconds. 






rbit 


t6stp,pvitdh ; Start tiaer T6. 




vrplp: 


ifbit 


t6pnd,pwndh ; Halt for PHD to be set. 






JP 


wrpgo 








JP 


wrplp 






wrpgo: 


sbit 


t6stp,pwBdh 


Stop tlBer T6. 






sbit 


t6ack,pwiiidh 


Clear T6 PHD bit. 






ret 






Return froa subroutine. 






.form 


'Set up 


DART flow control/output' 




setuar 






; Subroutine SETUAR; checks status of UART output 
; section, and Initiates a transfer if needed. 






Id 


A.ups 


; Check if UART handshake status needs update. 






and 


A,«x'03 








shl 


A 








.odd 










jidw 










.ptw 


usaat ,usnnat,usniat, usaat 










; Here, UART status last sent does not latch 










; current status. Heeds flow control action. 




usnaat 


ifbit 
j»pl 


cus.ups 
ustop 






ugo: 


Id 


X,«xon 


; Get XON (Control-Q) code. 






Jsrl 


uecsnd 


; Format it and send. 






rblt 


luss.ups 








J«pl 


sturet 


; Return. 




ustop: 


Id 


X.Jtxoff 


; Get XOFF (Control-S) code. 






Jsrl 


uecsnd 


; Format it and send. 






sbit 


luss.ups 








J»pl 


sturet 


; Return. 




usaat : 


ifbit 
J«pl 


schr.ups 
uscpc 


; Ho flow control needed. Check if CPU character Is 
; waiting to be sent. 
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unopnd; 



uscpci 



rbit 


etl.enul 


JKPI 


sturet 


Id 


X,uschr 


Jsrl 


uecsnd 


rblt 


schr.ups 


sbit 


Icpu.ups 


Jmpl 


sturet 



; Here, no characters pending to be sent. Turn off 
transBltter interrupt and return. 

; Turn off transnitter Interrupts. 
; Return. 

Here, a character is waiting to be sent from CPU. 
Get character. 

Foraat character for current frame and send. 
Reaove character send request. 
Set CPU interrupt request on completion. 
Return. 



sturet: 



ret 



; Return from subroutine. 



.form 'Format and transmit UART character' 



uecsnd: 



Id 

rbit 

Id 

J id 

•Pt 

.pt 



B,«evntbl 
xbit9,enu 
A.uframe 



; Subroutine to encode a character according to the 
currently-selected frame format and send it. 
Character is passed in Register X. 



Jump based on frame format. 



su8odd , suSevn , su8 , su8 
su7odd , su7evn , suTodd , suVevn 



suSodd: 
suBevn: 



sbit 
Id 

sbit 
ret 



Id B,«oddtbl 
ifbit X,[B].b 
xblt9,enu 
tbuf,X.b 
eti.enui 



su7odd: 
3u7evn: 



xor 
id 

sbit 
ret 



Id B,«oddtbl 

ifbit X,[B].b 

X.b,«x'80 ; Toggle parity to ignore bad top bit. 

tbuf,X.b 

eti.enui 



su8: 



Id 

sbit 

ret 



tbuf,X.b 
eti.enul 



.form 



'DTR Handshake Routines' 



dtroff: 





JP 


doff 




ret 




doff: 


ifbit 


dtrbO.uf low 




Jp 


dZoff 




sbit 


dtr.portbl 




ret 




d2off ; 


rblt 
ret 


dtr ,portbl 


dtron: 


ifbit 


; S 
dtrbl.uflow 




JP 


dton 



; Subroutine DTROFF - Sets printer not ready using DTR. 
ifbit dtrbl.uflow ; Action taken depends on UFLOW node. 
; If DTR is In a permanent state, return. 



For low-active DTR mode. 



Subroutine DTRON - Sets printer ready using DTR. 
; Action taken depends on UFLOW mode. 
; If DTR is in a permanent state, return. 
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ret 
dton: ifbit dtrbO.uflow 

Jp dZon 

rblt dtr.portbl 

ret 
d2on: sblt dtr.portbl 

ret 



; For low-active DTR mode. 
; For blgb-actlve DTR node. 



.end 



start 
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LIFE SUPPORT POLICY 



NATIONAL'S PRODUCTS ARE NOT AUTHORIZED FOR USE AS CRITICAL COMPONENTS IN LIFE SUPPORT 
DEVICES OR SYSTEMS WITHOUT THE EXPRESS WRITTEN APPROVAL OF THE PRESIDENT OF NATIONAL 
SEMICONDUCTOR CORPORATION. As used herein: 



1. Life support devices or systems are devices or 2. A critical component Is any component of a 



life 



systems which, (a) are Intended for surgical Implant 
into the body, or (b) support or sustain life, and whose 
failure to perform, when properly used In accordance 
with Instructions for use provided in the labeling, can 
be reasonably expected to result In a significant Injury 
to the user. 



support device or system whose failure to perform can 
be reasonably expected to cause the failure of the life 
support device or system, or to affect Its safety or 
effectiveness. 
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National Semiconductor 
Corporation 

1111 West Bardin Road 
Arlington, TX 76017 
Tel; 1(800) 272-9959 
Fax; 1(800) 737-7018 



National Semiconductor 
Europe 

Fax: ( + 49) 0-180-530 85 86 

Email: cnjwge@tevm2.nsc.com 

Deutsch Tel: ( + 49) 0-180-530 85 85 

English Tel: (+49) 0-180-532 78 32 

Frangais Tel: ( + 49) 0-180-532 93 58 

Italiano Tel: (+49) 0-180-534 16 80 



National Semiconductor 
Hong Kong Ltd. 

13th Floor, Straight Block, 
Ocean Centre, 5 Canton Rd. 
Tsimshatsui, Kowloon 
Hong Kong 
Tel; (852)2737-1600 
Fax; {852) 2736-9960 



National Semiconductor 
Japan Ltd. 

Tel; 81-043-299-2309 
Fax; 81-043-299-2408 



National does not assume any responsibility for use of any circuitry described, no circuit patent licenses are implied and National reserves the right at any time without notice to change said circuitry and specifications. 



